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Otras primitivas 
JECUTA lista 


Esta primitiva ejecuta 
el contenido de lista tal y 
como se ejecutaría introdu- 
ciendo directamente. 

Si el contenido de lis- 
ta es una operación, EJECU- 
TA devuelve el resultado. 

Por ejemplo, es lo mismo: 


? AV40GD90 AV 50 


Fig. 1 
que lo siguiente: 


? EJECUTA [AV 40 GD 90 AV 50] 


Pero la utilidad de esta primitiva la 
apreciamos cuando está dentro de un procedi- 
miento. 

Sigue estos ejemplos y te darás cuenta 
de ellos. 


PARA CALCUL 
BT 
PONCURSOR [4 1] 
ES [PULSA F1Ó PARA PARAR] 
PONCURSOR [1 4] 
ES "OPERACIÓN 
ES EJECUTA LL 
PONCURSOR [10 20] 
ES [PULSA UNA TECLA] 


VVVVVVVV" 


> HAZ'"A LC 
> CALCUL 
> FIN 


Este procedimiento simula una calcula- 
dora. 


Si ejecutamos el procedimiento: 
? CALCUL 

e introducimos una operación 
12 

en la pantalla aparecerá el resultado: 
14 


Y así hasta que decidas parar. 

El siguiente ejemplo que utiliza la pri- 
mitiva EJECUTA nos permite intercalar las ór- 
denes LOGO que deseemos entre dibujos de 
circunferencias. 


? PARA DIBU 

> HAZ“A LL 

> EJECUTA :A 

> REPITE 36 [AV 2 GD 10] 
> DIBU 

> FIN 


Nosotros hemos realizado el dibujo de 
la figura anterior siguiendo las pautas: 


? DIBU 
BP 

GI 45 
GI 45 
GI 45 
Gl 45 
AV 50 
GI 45 
GI 45 
GI 45 
GI 45 
ALTO 
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Las primitivas que explicamos a conti- 
nuación se utilizan para gestionar la memoria. 

Debemos advertir que la mala utiliza- 
ción de estas primitivas puede alterar el buen 
funcionamiento del sistema. 

Modificar el contenido de la memoria. 

Para los PC-COMPATIBLES. 


— DEPOSITA segmento desplazamien- 
to octeto. 

Deposita el valor octeto en la dirección 
de la memoria determinada por el segmento 
y el desplazamiento. 

El octeto debe ser un número compren- 
dido entre 0 y 255. 

En el LOGO del MSX: DEPOSITA direc- 
ción octeto. 

En el LOGO del SPECTRUM: DEPOSITA 
dirección n. 

Leer el contenido de la memoria. 

Para los PC COMPATIBLES. 


— EXAMINA segmento desplazamiento 

Devuelve el contenido de la posición de 
memoria determinada por el segmento y el 
desplazamiento especificado. 

El número que obtendremos estará 
comprendido entre 0 y 255. 

En el LOGO del MSX: EXAMINA direc- 
ción. 

En el LOGO del SPECTRUM: EXAMINA 
dirección. 

Para ejecutar rutinas en código máqui- 
na. 

Para los PC-COMPATIBLES. 


— LLAMA segmento desplazamiento 

Ejecuta la rutina en ensamblador a par- 
tir de la dirección especificada a través de 
segmento y desplazamiento. 

La rutina si no está en memoria la car- 
gamos con la primitiva CARGAB,. 

En el LOGO del MSX: LLAMA dirección 

En el LOGO del SPECTRUM: .DEPOSI- 
TA dirección 

Cómo reservar espacio en la memoria. 

En los MSX: RESERVA n 

Reserva n octetos en la zona superior de 
la memoria RAM de LOGO. 


Los octetos que especifiquemos en esta 
primitiva los perdemos del espacio de trabajo. 


En el SPECTRUM: .RESERVA n 


Si en vez de reservar espacio queremos 
saber en algún momento si se ha reservado 
una parte de la memoria y cuánta utilizamos: 


En los MSX: RESERVADO 


Devuelve dos números, en forma de lis- 
ta, que representan las direcciones, alta y 
baja, de memoria reservada. 


En el SPECTRUM: .RESERVADO 


3 Música II 


Música para la versión de Logo en los 
PC-Compatibles 


La versión de Logo para los PC-Compa- 
tibles dispone de una primitiva con la cual po- 
demos generar diferentes sonidos. 

Se trata de: 


? TONO frecuencia duración 


Frecuencia y duración tienen que ser 
dos números comprendidos entre los siguien- 
tes intervalos: 


FRECUENCIA: De 37 a 19723 
DURACION: De 0 a 9999 


La frecuencia es la que genera la nota 
musical; DO, RE..., 

La duración es la que determina el 
tiempo que tiene que estar sonando la nota. 
Recuerda que las diferentes duraciones se re- 
presentaban por: 


redonda= e 
blanca= y 
negra= e 
corchea= y 
semicorchea= e 
fusa= 
semifusa= ek 


El número que determina la duración 
representa pulsaciones de reloj. 


La mala utilización de las primitivas 
que gestionan la memoria puede alterar 
el funcionamiento del sistema. 
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En un segundo hay 18.2 pulsaciones de 
reloj. Es decir, si introducimos como duración 
18.2 la nota estará sonando durante un segun- 
do. Si introducimos 1092 (18.2 * 60), la nota so- 
nará durante un minuto, 

El tiempo mínimo que se suele dar a una 
duración es de tres pulsaciones, o lo que es lo 
mismo, 0.165 segundos. 

Las siguientes frecuencias son las que 
generan las notas de las octavas 4.2, 5.2, 6.2 y 7.2, 


Octava 4.*? 
FRECUENCIA NOTA 
131 DO 
139 DO + 
147 RE 
156 REF 
165 MI 
175 FA 
185 PAR 
196 SOL 
208 SOLA 
220 LA 
233 LAF 
247 SI 
Octava £.* 
FRECUENCIA NOTA 
262 DO 
217 DOF 
294 RE 
311 REA 
330 MI 
349 FA 
370 FAX 
392 SOL 
415 SOLA 
440 LA 
466 LAXF 
494 SI 
Octava 6.* 
FRECUENCIA NOTA 
523 DO 
554 DOX 
587 RE 
622 REA 
659 MI 
698 FA 
740 FAH 
784 SOL 
831 SOL 
880 LA 
932 LAF 
988 SI 


Octava 7.* 
FRECUENCIA NOTA 
1047 DO 
1109 DO+ 
1175 RE 
1245 REX 
1319 d MI 
1397 FA 
1480 FAH 
1568 SOL 
1662 SOL+ 
1760 LA 
1864 LA+ 
1976 SI e 


Una vez que conocemos los datos que 
hay que utilizar para generar un sonido deter- 
minado, podemos comenzar a componer nues- 
tras piezas musicales con el Logo. 

Por ejemplo, si definimos el siguiente 
procedimiento: 

? PARA MUSICA 
TONO 131 18 
TONO 147 18 
TONO 165 18 
TONO 175 18 
TONO 196 18 
TONO 220 18 
TONO 247 18 
FIN 


y a continuación lo ejecutamos; obtendríamos 
el sonido de las siete notas musicales de la 4.* 
octava y con una duración aproximada de 
cada nota de un segundo. 

A este mismo procedimiento podemos 
añadir una variable para que haga sonar las 
notas en diferentes octavas. Para ello multipli- 
camos la frecuencia por dos, cuatro, ocho, etc., 
para que vaya aumentando de octava. 


? PARA MUSICA :0 
TONO 131 * :0 18 
TONO 147 * :0 18 
TONO 165 * :0 18 
TONO 175 * :0 18 
TONO 196 * :0 18 
TONO 220 * :0 18 
TONO 247 * :0 18 
FIN 


Si deseamos que las notas suenen de 
nuevo en la octava cuarta, ejecutamos el pro- 
cedimiento dando un valor a la variable 0 de 


VVVVVVVV 


VVVVVVvVv 


Con la primitiva EXAMINA podemos leer 
el contenido de la memoria. 
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uno. Si queremos que suene en la octava quin- 
ta, damos el valor dos a la variable. 

También podemos añadir otra variable 
para elegir tiempo de duración de las notas. 

Si fijamos en 18 el valor que hay que po- 
ner para que la duración de la nota sea la equi- 
valente a una redonda, iremos dividiendo por 
dos, cuatro, ocho, dieciséis, etc., para conse- 
guir la duración equivalente a la blanca, ne- 
gra, corchea, etc. 


? PARA MUSICA :0 :T 
> TONO 131 * :0 18 / T 
> TONO 147 * :0 18 / :T 
> TONO 165 * :0 18 / :T 
> TONO 175* :0 18 / :T 
> TONO 196 * :0 18 / :T 
> TONO 220 * :0 18 / :T 
> TONO 247 * :0 18 / :T 
> FIN 


Cómo interpretar un pentagrama 


Para traducir las notas que se encuen- 
tran en un pentagrama al Logo, lo que tene- 
mos que hacer es: - 

1.2 Ver de qué nota se trata según su 
colocación en el pentagrama. 

2.2 Ver la duración que tiene obser- 
vando el signo que está con el que está repre- 
sentada la nota. 

En este caso es conveniente tener pre- 
vista una tabla de duraciones. Esta tabla la po- 
demos obtener fijando una duración para la 
redonda (que es la que más dura) y calcular 
las restantes duraciones dividiendo el valor fi- 
pos para la redonda, por múltiplos de dos. 

A 3.2 Ver la frecuencia correspondiente 
a la nota en la octava que deseemos. 

Siguiendo los casos que hemos descri- 
to, vamos a traducir a Logo la siguiente pieza 
musical: 


Fig. 2. 


En primer lugar, vemos las notas que 
contiene: 


SI, SI, SI, DO (Esta nota corresponde a 
una octava superior a la de las demás notas) 


SI, SOL, MI, SOL 
SI, DO (Esta nota corresponde a una oc- 
tava superior a la de las demás notas) 


SOL 

SI, SI, SI, SI 

SI, SOL, MI, FA 
SOL, FA 

MI 


Ahora deducimos los tiempos de dura- 
ción de cada nota. 

Como sólo vamos a utilizar duraciones 
correspondientes a blanca, negra y corchea, 
realizamos la siguiente tabla de duraciones: 


blanca — 16 
negra — 8 
corchea — 4 


Buscamos las frecuencias correspon- 
dientes a las notas en la octava 5.*: 


494 494 494 523 
.494 392, 330, 392 
494 523 

494 

494 494 494 494 
494 392 330 394 
392 349 

330 


Por último, definimos el procedimiento 
asignando a cada frecuencia (nota), su tiempo 
correspondiente: 


? PARA MUSICA 
TONO 494 4 
TONO 494 4 
TONO 494 4 
TONO 523 4 
TONO 494 4 
TONO 392 4 
TONO 330 4 
TONO 392 4 
TONO 494 8 
TONO 523 8 
TONO 494 16 
TONO 494 4 


VVWVWVVVVVVVVV 


TONO 494 4 
TONO 494 4 
TONO 494 4 
TONO 494 4 
TONO 392 4 
TONO 330 4 
TONO 349 4 
TONO 392 8 
TONO 349 8 
TONO 330 16 
FIN 


Para escuchar esta pieza, teclea: 
? MUSICA 


VVWVWVWVVVVVVV 


Hoja resumen 


— EJECUTA lista 


Ejecuta el contenido de lista tal y como 
se ejecutaría introduciéndolo directamente. 


DEPOSITA segmento desplazamiento 
octeto (PC-COMPATIBLES) 


Deposita el valor octeto en la dirección 
de la memoria determinada por el segmento 
y el desplazamiento. 

En el MSX: DEPOSITA dirección octeto 

En el SPECTRUM: .DEPOSITA dirección 
octeto 


— EXAMINA segmento desplazamien- 
to (PC-COMPATIBLES) 


Devuelve el contenido de la posición de 
memoria determinada por el segmento y el 
desplazamiento especificado. 

En el LOGO del MSX: EXAMINA direc- 
ción. 

En el LOGO del SPECTRUM: JEXAMINA 
dirección 

— LLAMA segmento desplazamiento 
(PC-COMPATIBLES) ] 

Ejecuta la rutina en ensamblador a par- 
tir de la dirección especificada a través de 
segmento y desplazamiento. 

En el LOGO del MSX: LLAMA dirección 

En el LOGO del SPECTRUM: .DEPOSI- 
TA dirección 


— RESERVA n (Para MSX) 
Reserva n octetos en la zona superior de 
la memoria RAM de LOGO. 


e essa dd AZ A Y A 


ad 14 End de Ma 


En el SPECTRUM: .RESERVA n 


— RESERVADO (Para MSX) 

Devuelve dos números, en forma de lis- 
ta, que representan las direcciones, alta y 
baja, de memoria reservada. 

En el SPECTRUM: .RESERVADO 


— TONO frecuencia duración (Para 
PC-COMPATIBLES) 

Hace sonar la nota que equivale a fre- 
cuencia que se especifica durante el tiempo 
que indica la duración. 


Ejercicios 

l. Este ejercicio nos permite jugar con el or- 
denador. 
Se trata de memorizar números. 
El juego dispone de varios niveles: 
Nivel 1 = números de 1 cifra 
Nivel 2 = números de 2 cifras 
así hasta el nivel 4. 
En la pantalla aparecerán durante unos se- 
gundos cuatro números, cuando desaparez- 
can, el jugador introducirá en el mismo or- 
den los cuatro números. 


Finalmente aparecerá una columna indi- 
cando los aciertos y los fallos. 


2. Define los procedimientos necesarios para 


jugar a PARES y NONES con el ordenador. 


3. Interpreta la siguiente partitura con el 


Logo: 


Fig. 3. 


4. Haz los cambios necesarios en el procedi- 


miento anterior para que la pieza pueda so- 
nar en la octava que se desee. 


5. ¿Son correctas las órdenes siguientes?: 


— ? EJECUTA "AV 20 


— ? PARA A2:A 
> PONCL :A 
> EJECUTA LL 
> HAZ'A:A+l 
> SI:A =4(HAZ'A :A - 3] 
> A2=A 
> FIN 
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— ? PARA A3 
> HAZ "AV [AV 40 GD 90 RE 35 Gl 50 
AV 60] 
> EJECUTA :A 
> FIN 


— ? ES EJECUTA [AV 40] 


— ? PARA A5 
> EJECUTA LP 
> FIN 


2 Solución a los ejercicios 
1: 


El ejercicio está realizado para un nivel 
de dificultad de 1 a 4. En el procedimiento LIS- 
TAS creamos las listas de números, teniendo 
en Cuenta los cuatro niveles. 


? PARA LISTAS 

HAZ 'A[1234567890] 

HAZ "Al [12 43 56 38 59 23 54 34 90 
87] 

HAZ "A2 [124 654 347 876 459 890 783 
456 223 457] 

HAZ "A3 [2838 6544 8900 5670 1240 
6539 5637 8944 4534 6980] 

FIN 


El procedimiento DIFI pregunta el gra- 
dificultad: 


? PARA DIFI 

> PONCURSOR [3 10] 

> ES [ELIGE DIFICULTAD (1 - 4)] 
> PONCURSOR [3 11] 

> HAZ "DLC 

> FIN 


, El siguiente procedimiento elige de la 
variable A, que ya contiene la lista correspon- 
diente al grado de dificultad, tres números. 


? PARA ELIGE 

> HAZ 'N CUENTA :A 

> HAZ "Pl (AZAR :N) + 1 
> HAZ "P2 (AZAR :N) + 1 
> HAZ "P3 (AZAR :¿N) + 1 
> FIN 


PALABRAS presenta durante unos se- 
gundos los números en la pantalla. 


? PARA PALABRAS 


Y, MEN 


> 


do de 


Farm la my 
LO 1 la PI L E 


FAA ICAO Y > en -.. 7 

y , Ñ A Ú 

us MICA OU LA E Es dle LA AS ELA le o ola 
de 
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PONCT 3 

HAZ 'Kl LISTA ELEMENTO :Pl :A 
HAZ 'K2 LISTA ELEMENTO :P2 :A 
HAZ 'K3 LISTA ELEMENTO :P3 :A 
PONCURSOR [1 10] 

ESTI 

PONCURSOR [1 12] 

ES :K2 

PONCURSOR [1 14] 

ES :K3 

FIN 


PREGUN permite al usuario introducir 
los tres números que desee. 


? PARA PREGUN 
PONCURSOR [15 10] 
HAZ "Ll LL 
PONCURSOR [15 12] 
HAZ "L2 LL 
PONCURSOR [15 14] 
HAZ "L3 LL 

FIN 


ACIERTOS informa de los aciertos y de 
los fallos que se han cometido. 


? PARA ACIERTOS 

PONCT 2 

PONCURSOR [27 10] 

SI :K1 =:L1 [ES "CORRECTO] [ES "IN- 
CORRECTO] 

PONCURSOR [27 12] 

SI :K2 = :L2 [ES "CORRECTO] [ES “IN- 
CORRECTO] 

PONCURSOR [27 14] 

SI :K3 = :L3 [ES "CORRECTO] [ES "IN- 
CORRECTO] 

FIN 


, por último, el procedimiento princi- 
pal, que va llamando a todos los anteriores. 

También se encarga de seleccionar la 
lista que se va a gestionar, dependiendo del 
nivel de dificultad que se haya elegido. 


? PARA A 
PT. 


VVVVVVVVVVV 


VVWVVVVV 


SI:D=2[HAZ "A :Al] 
SI:D =3[HAZ“A :A2] 
SI :D = 4[HAZ “A :A3] 
ELIGE 


VVVVVVVV 


BT 
PALABRAS 
ESPERA 40 
BT 
PREGUN 
PALABRAS 
ACIERTOS 
FIN 


VVVVVVVV 


El primer procedimiento que presenta- 
mos inicializa la pantalla y llama a todos los 
procedimientos que necesitamos para realizar 
el juego: 


? PARA JUEGO 
OT 

BP 

BT 

ELEGIR 
ELEGIR2 
RESUL 

FIN 


ELEGIR1 es el primer procedimiento 
que se ejecuta desde JUEGO. 

Permite elegir si queremos PARES o 
NONES. 


? PARA ELEGIR] 

> PONCURSOR (15 1] 

> ES [EMPIEZA EL JUEGO] 

> PONCURSOR [3 10] 

> ES [ELIGE PARES O NONES] 
> 

> 

> 


VVWVVVVV 


PONCURSOR [3 12] 
HAZ "A LL 
FIN 


ELEGIR2 es el segundo procedimiento 
llamado desde JUEGO. 

En este procedimiento elegimos la ju- 
gada, que puede ser un número del 0 al 5. 


? PARA ELEGIR2 

BP 

BT 

HAZ 'B AZAR 6 
PONCURSOR [15 1] 

ES "JUGANDO 
PONCURSOR [3 10] 

ES [YO HE PREPARADO MI JUGA- 
DA] 

PONCURSOR [3 12] 

ES (ELIGE TU LA TUYA] 


VV VVVVVVV 


> PONCURSOR [3 15] 

> ES [UN NUMERO DEL 0 AL 5] 
> PONCURSOR [3 14] 

> HAZ 'C LC 

> FIN 


Y, por último, RESUL muestra una pan- 
talla con las dos jugadas, la del LOGO y la del 
jugador, y el resultado final, es decir, quién ha 
ganado. 


? PARA RESUL 

PM 

BP 

BT 

PONCURSOR [15 1] 

ES "RESULTADO 

PONCT 2 

PONCURSOR [5 5] 

ES [MI JUGADA] 

PONCURSOR [25 5] 

ES [TU JUGADA] 

PONCURSOR [10 7] 

ES :B 

PONCURSOR [30 7] 

ES :C 

HAZ "S:B+:C 

HAZ "R RESTO: 52 

PONCURSOR [15 12] 

SI Y :A = [PARES] R: = 0 [ES [HAS 

GANADOJ] 

SI Y :A = [PARES] NO :R = 0 [ES [HE 

GANADOJ] 

SI Y :A = [NONES] NO :R = 0 [ES 

[HAS GANADOJ] 

> SIY:A =[NONES] :R = O[ES[HE GA- 
NADO]] 

> PONCURSOR [1 20] 

> FIN 


Para empezar a jugar ejecutamos el 
procedimiento JUEGO. 


? JUEGO 


V V VVWVVWVWVWVVVVVVVVVVVV 


Primero obtenemos las notas de que 
está compuesta la pieza: 


DO RE MIFA 

SOL SOL 

DO DO SI SI (Los dos Do corresponden 
a una octava superior) 


La frecuencia que se especifica en la primitiva 
TONO es la que indica la nota. 
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LA SOL 

SOL LA SOL LA 
SOL FA 

PA FA RE MI 
RE DO 


Ahora establecemos el tiempo de dura- 
ción de cada nota. Como sólo intervienen ne- 
gras y corcheas, asignamos respectivamente 
los tiempos: 


negra = 4 
corchea = 8 


Buscamos las frecuencias que corres- 
ponden a las notas en la octava 5.2: 


217 294 330 349 
392 392 
523 523 494 494 
440 392 
392 440 392 440 
392 349 
349 349 294 330 
294 277 


Por último, definimos el procedimiento 
que va a interpretar la canción: 


? PARA A 
TONO 277 4 
TONO 294 4 
TONO 330 4 
TONO 349 4 
TONO 392 8 
TONO 392 8 
TONO 523 4 
TONO 523 4 
TONO 494 4 
TONO 494 4 
TONO 440 8 
TONO 392 8 
TONO 392 4 
TONO 440 4 
TONO 392 4 
TONO 440 4 
TONO 392 8 
TONO 349 8 
TONO 349 4 
TONO 349 4 
TONO 294 4 
TONO 330 4 
TONO 294 8 
TONO 277 8 
FIN 


VVWVWVVWVVVVVWVVVVWVVVWVVVVVVVV 
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Para ejecutarlo introducimos: 
2A 


Las modificaciones que hay que reali- 
zar para elegir la octava en que queremos que 
suene la pieza son: 


? PARAB:0 
TONO 27 
TONO 29 
TONO 33 
TONO 34 
TONO 39 
TONO 39 
TONO 52 
TONO 52 
TONO 49 
TONO 49 
TONO 44 


TONO 39 
TONO 44 


TONO 33 
TONO 29 
TONO 27 
FIN 


La variable 0 es la que va a determinar 
la octava en que va a sonar, dependiendo de 
los siguientes valores: 


VVWVWVWVVVVWVVVVVVVVVVVVVVVVVV 
3 
== 
O 
$ 
00 00 is es fs e 00 00 se e e e 00 00 es «e e e 00 00 es ds es 


O = 1 octava 5 
0 = 2 octava 6 
0 = 4 octava 7 
0 =0,5 octava 4 


No te olvides que al ejecutar el proce- 
dimiento tienes que asignarle un valor a la va- 
riable. 


— EJECUTA "AV 20 


INCORRECTO 

La primitiva sólo acepta listas como da- 
tos. 

El LOGO devuelve el mensaje: 

EJECUTA no acepta AV como dato. 


— ? PARA A2:A 
> PONCL :A 
> EJECUTA LL 
> HAZ"A:A+ 1 
> SI:A =4[HAZ"A:A - 3] 
> A2:A 
> FIN 
CORRECTO 


El procedimiento A2 permite que intro- 
duzcamos órdenes para luego ejecutarlas 
cambiando cada vez el color del lápiz. 


— ? PARA AS 
> HAZ"A[AV 40 GD 90 RE 35 Gl 50 
AV 60] 
> EJECUTA :A 


> FIN 
CORRECTO 


Si ejecutamos el procedimiento A3, en 
la pantalla aparecerá la figura que se dibuja 
con las órdenes: 


AV 40 GD 90 RE 35 GI 50 AV 60 

— ? ES EJECUTA [AV 40] 
INCORRECTO 

El LOGO devuelve el mensaje de error: 


AVANZA NO HA DEVUELTO NADA A 
EJECUTA 


— ? PARA AS 
> EJECUTA LP 
> FÍN 
INCORRECTO 


Si ejecutamos A5 el LOGO leerá del te- 
clado una palabra, y la primitiva EJECUTA no 
acepta palabras como dato. 


El Logo es el director de orquesta. 


Añade a tus procedimientos y procesos 
canciones o efectos sonoros. 
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ONTINUANDO con el último 
juego de esta colección, va- 
mos a ver una versión del 
conocido BREAK OUT para 
IBM PC y compatibles. El 
programa se ha desarrolla- 
do íntegramente bajo 
GWBASIC para respetar di- 


cha compatibilidad. 


1000 
1010 
1020 
1030 
1040 


1050 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 


"1260 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 


ASS lolo kk 


* 


* 


* BREAKOUT  k 


* ROMPE LADRILLOS xk 


* 


xk 


EEES 


AMO OOOO III RROK 


kx 


* PROGRAMADO POR: 


* 


k Fco. Morales Guerrero 


* 


EX A A A 


ISSO SONO lalalala lalaalolalololalalojok: 


IMEI lalalala lalalala 


*k 


X (c) Ediciones Siglo Cultural 


* 


* (c) 1987 


+ 


XK YX E * >» 


AMOO alla lalalala lalalala lalalala lala lclolok 


ARO OOOO look 


* INICIALIZACION DEL PROGRAMA x 
ASS lalalala lalola Ialololalolotok 


SCREEN 2 
RANDOMIZE TIMER 


DIM 
DIM 
DIM 
DIM 
DIM 
DIM 
DIM 
DIM 
DIM 
LET 
LET 
LET 
LET 
LET 
LET 


0x%X(10) 
N(23,4) 
P%(20) 
L1x(20) 
L2%(20) 
L3%(20) 
P1X(20) 
P2x(20) 
M(2) 
M(1)=25 
M(2)=37 
NV=10 
PU=0 
PA=1 
MA=1 


: REM GRAFO PARA LETRAS 

: REM MATRIZ CON LOS LADRILLOS 
: REM PELOTA 

: REM LADRILLO No. 1 

: REM LADRILLO No. 2 

: REM LADRILLO No. 3 

; REM PALETA No. 1 

: REM PALETA No. 2 


: REM NUMERO DE VIDAS 

: REM PUNTOS A CERO 

: REM NUMERO DE PANTALLA 
: REM MANDO PEQUENO 
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1450 
1460 
1470 
1480 
PARA 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 


2030. 


LET SW=0 
LET P=92 : REM NUMERO: DE PUNTOS A COMER 
LET HI=0 : REM HI-SCORE 

: REM SIRVE 


DEF FNROUND(X)=FIX(X+. 5*SGN(X)) 
REDONDEAR . 
REM 

REM AAA IO 
REM * LECTURA DE LOS GRAFICOS x 
REM Roa lola aloja 
REM 
REM 
REM 
FOR 


*** LECTURA DE LA PELOTA *x*x 


I=0 TO 19 
READ PX(1) 
NEXT 1 
REM 
REM ox 
REM 
FOR I=0 

READ 
NEXT I 
REM 
REM xxx 
REM 
FOR I=0 

READ 
NEXT 1 
REM 
REM xo 
REM 
FOR I=0 

7 READ 
NEXT 1 
REM 
REM ook 
REM 
FOR 1=0 

READ 
NEXT 1 
REM 
REM xxx 
REM 
FOR I=0 

READ 
NEXT 1 
REM 
REM ok 
REM 
FOR I=0 TO Y 

READ 0%(1) 

NEXT 1 

CLS 

REM 

REM alla lo lojojo lok 
REM * PROGRAMA PRINCIPAL x* 
REM aaaalaalololalalalalalalalalolalolark 


LECTURA DEL LADRILLO No. 1 


TO 19 
L1X(1) 


LECTURA DEL LADRILLO No. 2 
TO 19 
L2%(1) 
LECTURA DEL LADRILLO No. 3 
TO 19 
L3x(1) 
LECTURA DE LA PALETA No. 1 
TO 19 
P1%(1) 
LECTURA DE LA PALETA No. 2 
TO 19 


P2%(1) 


LECTURA DEL GRAFO PARA LAS 


HOOK 


AR 


A 


HOOK 


ES 


LETRAS *xxk 


REM 
GOSUB 3540 REM PRESENTACION 

GOSUB 4070 REM DIBUJO DE LA PANTALLA 
GOSUB 2080 REM MENSAJE DE INICIO 


2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 


2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 


2380 


GOSUB 3280 REM MOVIMIENTO DEL JUGADOR 
GOSUB 2460 REM MOVIMIENTO DE LA PELOTA 
IF NYV=0 THEN GOSUB 4440:GOTO 2010 
GOTO 2040 
REM 
REM ASNO old Ol 
REM * MENSAJE DE: PREPARADO? * 
REM AMOO dd O O IR 
REM 
FOR I=1 TO 5 
LOCATE 14,20 
PRINT STRING$(4,168);" 
PREPARADO 9999" 
BEEP 
FOR .J=1 TO 200 
NEXT J 
LOCATE 14,20 
PRINT SPACE$S(42) 
FOR J=1 TO 200 
NEXT J 
NEXT 1 
FOR I=1 TO 1000 
NEXT 1 
PLAY "Li4 03 C D E F P10.05 C" 
RETURN 
REM 
REM MSI OI 
REM * FIN DE UNA PANTALLA * 
REM AMS RSROOSIOIOOSIOlOIOJOIOIVIOr 
REM 
ERASE N 
DIM N(23, 4) 
PLAY "L10 CCCTI5FLIOACCCL5F LIO 
A P5 15 F 110 F LIOOEEDDIL5C" 
PLAY "03 P10 LIO CCCL5EL1OGCCCI5 
E L10 G P10 04 L5.C L10 DC.03.B 


ESTAS 


- AG PF" 


2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
, 2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 


LET PA=PA+1 

IF PA=4 THEN JET PA=1 

LET MA=2 

GOSUB 4070 

IF PU>HI THEN LET HI=PU 

LOCATE 23,75 

PRINT USING “*$R888" BI 

LOCATE 23,11 

PRINT PA 

REM 

REM ASAS AA ISI III ISI OOOO: 
REM * MOVIMIENTO DE LA PELOTA Y COMPROBACION x* 
REM aaa lalalala lalola lO IOIOIOIoIOK 
REM 

1,ET X2=X2+DX 

LET Y2=Y2+DY 

IF X2>=610 OR X2<=8 THEN LET DX=-DX 

IF Y2<=8 THEN LET DY=4 

REM 
AS 
REM * COMPROBACION DE CHOQUE CON LADRILLO x* 
NES 
REM 

LET Y=INT((Y2-24)/12) 

LET X=FNROUND((X2-11)/27) 

IF X>22 OR X<0 OR Y>3 OR Y<O THEN GOTO 2740 

IF N(X,Y)=1 THEN GOTO 2740 

LET DY=-DY 

IF PA=1 THEN PUT(11+27*X,24+12*Y),L1% 

IF PA=2 THEN PUT(11+27%*X,24+12*Y),L2% 
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2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 


2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 


3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3180 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3280 
3270 
3280 
3290 
3300 
3310 


IF Pa=3 THEN PUT(11+27*X, 24+12*Y),L3% 
LET PU=PU+1O*PA 

LOCATE 24,75 
PRINT USING 
LEY P=P-1 
IF P=0 THEN GOTO 2280 

LET N(X, Y)=1 

REM 

REM MOROS OIOOJOIOIO OO 

REM * DIBUJO Y BORRADO DE LA PELOTA * 

REM SISSI III III II 

REM 

PUT(X3,Y3),P% 

PUT(X2,Y2),P% 

LET X3=X2 

LET 13=12 

IF Y2>=139 THEN GOTO 2900 - 
RETURN 

REM 

REM AMA O OI look: 
REM * COMPROBACION DE CHOQUE CON LA PALETA * 
REM aaa lalo ojala lalalala lalalala oido ajo 
REM 

IF Y2>=155 THEN GOTO 3040 

IF X1+M(MA)>X2 AND X1<X2+20 AND SW=0 THEN 
GOTO 2940 

LET SW=1 

RETURN 

LET DY=-4 

LET DX=SGN(DX)*INT((X1+MA(A)-X2)/2) 

IF DX=0 THEN LET DX=-4 

PLAY "04 L64 A” 

RETURN 

REM 

REM AMOS OS” OOOO lolo alok. 

REM * PERDIDA DE UNA VIDA * 

REM AMAIA OOOO OOO AAA AA 

REM 

PUT(X3, Y3),PX 


PLAY "L30 05 BAGFEDC 04 BAGFEDC 03 BAGFEDC 02 
BAGFEDC 01 BAGFEDC "” 


LET NV=NV-1 
LOCATE 24,1 
PRINT “VIDAS 
FOR I=1 TO 500 
NEXT 1 

IF MA=1 THEN PUT(X1,150),P1% 
IF MA=2 THEN PUT(X1,150),P2% 
LET MA=1 

LET X1=295 

LET XO=X1 

LET X2=300 

LET Y2=76 

LET DX=4 

IF RND>.5 THEN LET DX=-4 

LET DY=4 

LET X3=X2 

LET Y3=Y2 

PUT(X2,Y2),PX 

PUT(X1, 150),P1% 

IF NV>0 THEN GOSUB 2080 

LET SW=0 

RETURN 

REM 

REM SORIOOOORMIOIOODIOOIOIOOIOI JooK 
REM * MOVIMIENTO DEL MANDO x* 
REM OOOO IIOICRIOIOIOIOONH: 


“epeeaa PO; 


="¿NV; 
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3320 REM 

3330 LET M$=INKEYS$ 

3340 IF M$="" THEN RETURN 

3350 IF MA=2 THEN GOTO 3450 

3380 REM 

3370 REM x*xx* CON MANDO PEQUENO x*xkx 

3380 REM 

3390 IF M$="P" THEN X1=X1+10+10*(X1>=601) 
3400 IF M$="0" THEN X1=X1-10-10*(X1<=10) 
3410 PUT (X0,150),P1% 

3420 PUT (X1,150),P1% 

3430 LET XO=X1 

3440 RETURN 

3450 REM 

3460 REM x*xx* CON MANDO GRANDE *xx 

3470 REM 

3480 IF M$="P" THEN X1=X1+14+14*(X1>=592) 
3490 IF M$="0" THEN X1=X1-14-14*(X1<=13) 
3500 PUT (X0,150),P2% 

3510 PUT (X1,150),P2% 

3520 LET XO=X1 

3530 RETURN 

3540 REM 

3550 REM aso oolOlOlOlo lok 

35680 REM * PRESENTACION * 

3570 REM aaalaloldlalalolalalalalojojok 

3580 REM 

3590 CLS 

3600'LOCATE 1,24 

3610 PRINT "(c) Ediciones Siglo Cultural, 1987" 
3620 RESTORE 5110 

3830 FOR I=1 TO 18 


3640 READ A$ 

3650 FOR J=1 TO LEN(A$) 

3660 IF MIDS(A$,J,1)="0" THEN GOTO 3680 
3670 PUT(152+J3X*8, 18), 0% 

3680 NEXT J 

3690 NEXT 1 


3700 FOR I=0 TO 1 


3710 FOR J=0 TO 78 

3720 PUT(4+J*8, 150+32*1),0% 
3730 NEXT J 

3740 NEXT 1 


3750 LET X1=0 

3760 LET XO=X1 

3770 LET Y1=158 
3780 LET YO=Y1 

3790 LET DX=4 

3800 LET DY=4 

3810 PUT(X1,Y1),PX 
3820 FOR I=1 TO 154 


3830 LET Xi=X1+DX 

3840 LET Y1=Y1+DY 

3850 1F Y1<=158 THEN LET Y1=158 

3860 IF Yi>=181 THEN LET Y1=173 

3870 IF Yi<=158 OR Y1>=173 THEN LET DY=-DY 
3880 PUT(XO, YO), PX 

3690 PUT(X1,Y1),PXx 

3900 LET XO=X1 

3910 LET YO=Y1 

3920 NEXT 1 


3930 PUT(XO, YO), Px 
3940 FOR 1=20 TO 25 


3950 LOCATE 1,1 
3960 PRINT SPACE$(80); 
3970 NEXT 1 


3980 LOCATE 19,22 
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3990 
4000 
4010 
4020 
4030 
4040 
4050 


. 4060 


4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4280 


4270 
4280 


4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 


4510 
4520 
4530 


4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 


PRINT "USA LAS SIGUIENTES TECLAS PARA MOVERTE" 
LOCATE 22,34 

PRINT "O - IZQUIERDA.” 

LOCATE 24,34 

PRINT "P - DERECHA. ”; 

FOR I=1 TO 2000 

NEXT 1 

RETURN 

REM 


REM SOS lolololololoK 
REM * DIBUJO DE LA PANTALLA x* 
REM ooo laalaalolVloloiokK 
REM 
CLS 
PRINT CHR$(201);STRING$(78,205); HR$(187) 
FOR I=1 TO 20 

PRINT CHR$(186);TAB(80);CHR$(186) 
NEXT 1 
PRINT CHR$(200);STRING$(78,205);CHR$(188) 
FOR 1=24 TO 65 STEP 12 

FOR J=11 TO 620 STEP 27 

IF PA=1 THEN PUT(J,1),L1% 


IF PA=2 THEN PUT(J,1),L2% 
IF PA=3 THEN PUT(J,1),L3% 
NEXT J 
NEXT I 
LOCATE 23,1 
PRINT "PANTALLA =";PA;TAB(64);:PRINT USING 
"HI-SCORE = HR $R" ¡HI 
LOCATE 24,1 
PRINT "VIDAS =";NV;TAB(62);:PRINT USING 
"PUNTUACION = $HR8%8"; PU; 
LOCATE 25,31 


PRINT "BREAK 0UT"; 

IF MA=1 THEN PUT(298,150),P1X:LET X1=298 
IF MA=2 THEN PUT(295,150),P2%:LET X1=295 
LET XO=X1 

LET X2=300 

LET Y2=76 

LET DX=4 

IF RND>.5 THEN LET DX=-4 

LET DY=4 

LET X3=X2 

LET Y3=Y2 

PUT(X2,Y2),P% 

LET P=92 

RETURN 

REM 

REM aaa lalalollolololOK 

REM * FIN DE LA PARTIDA x 

REM ol alado 

REM 

LOCATE 14,20 

PRINT "LO SIENTO. HAS PERDIDO TODAS 

LAS RAQUETAS. * 

LOCATE 17,29 

PRINT "LA PARTIDA HA TERMINADO. * 

PLAY "03 L3 C P8 C 16 C L3 C L4 PB D+ P16 L6 D 
3 L3 C"L3DL8 C 14 C L6 P18 02 BO 
LOCATE 20,26 

PRINT "PULSA UNA TECLA PARA CONTINUAR" 
LET A$=INKEY$ 


IF A$="" THEN GOTO 4560 

RETURN 

REM 

REM aaa lalalala 


REM * DATAS CON LA DEFINICION DE LAS FIGURAS * 
REM aaa ada lala alojaba 


4630 
4640 
4650 
4660 
4670 


REM 

REM Saa lalalala lalalala jolla 
REM * DEFINICION DE LA PELOTA x 
REM Malo SIAldSlId aldo 


REM 


4680 DATA 21,11,0,768,255,-241,16320,-3841,-129, 


26616 


4690 DATA -1793,-157,29176,-1793,32588,3824, 


"4700 
4710 
4720 
4730 
4740 
4750 


4760 


4770 
4780 
4790 
4800 
4810 
4820 
4830 


4840 
4850 
4860 
4870 
4880 
4890 


4900 


4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 


-16353,-253,0,0 

REM 

e E 

REM * DEFINICION DEL LADRILLO No. 1 x 

REM aaa aaa 

REN 

DATA 26,9,0,0,-225,255,8546,-16380,-129, 
-16129 

DATA 8530, 16388,8530, 16388,8530,16388,8530, 
16388,-129,-16129 

REM 

REM aaa loloalolbjla 

REM * DEFINICION DEL LADRILLO No. 2 * 

REM laa alolojalalldlolok 

REM 

DATA 26,9,0,0,-8177,254, 4368, 1,2593, -32752 
DATA -31677,16440, -31677, 16440, 2593, -32752, 
4368,1,-8177,254 

REM 

REM toalla lalalala lalalala 

REM * DEFINICION DEL LADRILLO No. 3 * 

REM ado lola lola jollalalalalallaalolallalalalo jalo 

REM 

DATA 26,9,0,0,-129,-16129,8032,-16384, 1119, 
16415 

DATA -2752, 16608, -2752, 16808, 1119, 18415,8032, 
-16384, -129, -18129 

REM 

REM aaa lola lallalalolajalojolok 

REM * DEFINICION DE LA PALETA No. 1 * 

REM olaaa jala 

REM 

DATA 25,6,0,0,-225,254,32,1,27995,-32586 
DATA 32,1,-225,254,0,0,0,0,0,0 

REM 

REM SSI Ilo 

REM * DEFINICION DE LA PALETA No. 2 x* 

REM ASAS III: 

REM 

DATA 37,6,0,0,7936,-1,-7937,32,0,23312 

DATA -18835,28843,32,0,7952,-1,-7937,0,0,0 
REM 

REM aaa aia: 
REM * DEFINICION DEL GRAFO PARA LAS LETRAS *x 
REM aaa lalalala alla laldlalojoK 
REM 

DATA 9,9,0,0,63,33,45, 45,33,63 

REM 

REM aaa aaa aloja 

REM * DATAS CON LA PALABRA BREAK OUT * 

REM aaa aaa lalalala llolojalolo 

REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


“111111001111110011111110000110001110011" 
"011001100110011001100010001111000110011" 
"011001100110011001101000011001100110110" 
“011111000111110001111000011001100111100" 
"011001100110110001101000011111100110110" 
"011001100110011001100010011001100110011"” 
“111111001110001011111110011001101110011" 


47 


“*9000000000111000011001100111111” 
"0000000001101100011001100101101” 
"0000000011000110011001100001100" 
“0000000011000110011001100001100” 
*0000000011000110011001100001100” 
"0000000001101100011001100001100" 
"0000000000111000001111000011110"” 


5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


El juego consiste en derribar un muro 
que se alza frente a nosotros para así poder sa- 
lir de la cárcel y encontrar de nuevo nuestra 
libertad. Lo que nosotros:no sabemos es que 
hay más muros enfrente nuestro que días: tie- 
ne un año. Por ello, infelices de nosotros, nos 
ponemos a derribar el muro sin saber que 
nunca seremos libres. 


Fig. 1. Presentación del programa. 


Aunque no podamos ser libres, lo que 
es seguro es que podemos pasar un rato agra- 
dable jugando a este juego. Y no sólo eso, po- 
demos ver al estudiarlo que, con todo lo que 
hemos visto en esta colección, se pueden ha- 
cer programas como éste y mucho mejores. 


Para controlar la raqueta que tiene que 
parar la trayectoria de la bola, tenemos que 
utilizar las siguientes teclas: 


P 
O 


= Derecha 
= Izquierda 


No se puede decir que el programa sea 
muy rápido. Esto es debido a la gran cantidad 
de líneas REM que se han incluido para que 
el lector comprenda mejor el funcionamiento 
del programa. Una vez comprendido se pue- 
den quitar todas las sentencias REM y los LETs 
de todas las asignaciones. 
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Como habrá podido comprobar el lec- 
tor, no se ha incluido ninguna rutina de re- 
cords. Se ha hecho a propósito para que el 
usuario se haga su propia rutina utilizando su 
propia forma de programas y sus propias 
ideas. 


Fig. 2. Pantalla 1. 


Fig. 3. Pantalla 3. 


Fig. 3. Pantalla 2. 
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TRUCOS Y RUTINAS BASICAS AAA 


Ordenador: Amstrad CPC-6128 


ROGRAMA: Tablero de di- 
bujo. 

El siguiente progra- 
ma nos permitirá utilizar el 
ordenador como un tablero 
de dibujo, el cual puede ac- 
ceder directamente a un 
menú de ICONOS que con- 


10 REM ARO OR 
20 REM xxx TABLE-—DRAW KAk 
30 REM XxXX*  CREACION DE ICONOS XXX 
40 REM *xx Un programa realizado *X*Xx 


50 REM xXx Por KXkxk 
60 REM Xxx Carlos A. Maria Morin XXX 
70 REM XXX +93 
80 REM Xxx (C> Ediciones XK 


90 REM *x*x*X Siglo Cultural 1987 *X**X 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


REM ARO ROO OOO OOOO ROOIOIOIOIORAJOK 

REX 
ES 
REM AO INICIALIZACION AO KK 
IIS 
REM 

SYMBOL AFTER 230 

SYMBOL 230,255, 255,255,126,60,24,0,0 
SYMBOL 231,24,60, 126,255, 255,255,0,0 
SYMBOL 232,0,0,1,15,1,0,0,0 

SYMBOL 233,0,24,248,252,252,62,14,3 
SYMBOL 234,0,0,0,1,15,1,0,0 

SYMBOL 235,3,14,62,252,252,243,24,0 
SYMBOL 236, 0,24,31,63,63, 124, 112,192 
SYMBOL. 237,0,0,0,224,128,0,0,0 

SYMBOL 238,192, 112,124,63,63,31,24,0 
SYMBOL 239,0,0,0,128,240,128,0,0 

REM 

REM AS SO lalalalajajo lalo lalojojok 
REMOMODOMORRKRK CREA PANTALLA AdoOIOIOIOIOOK 
AS 
REM 


MODE 2 
INK 1,0; INK 0,0 
ORIGIN 0,0 


DRAW 0,399: DRAW 639,399 
DRAW 639,0: DRAW 0,0 

MOVE 1,0:DRAWR 0,399 
MOVE 638,0:DRAWR 0,399 
MOVE 0,210: DRAW 615,210 
MOVE 0,209: DRAW 615,209 
MOVE 615,212: DRAW 640,212 
MOVE 615,207: DRAW 640,207 
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tiene todas las funciones que puede realizar: 
trazar rectas, círculos, elipses, rectángulos... 

El programa consta de dos partes: 

1. El programa de CREACION DE 
ICONOS. Que se encarga de dibujar en pan- 
talla el menú de iconos y grabarlo en disco o 
cinta en formato binario. 

“Debes teclearlo y luego ejecutarlo, él 
mismo se grabará en el soporte que tengas. 

2. Programa PRINCIPAL. Que se en- 
carga de realizar toda la tarea del dibujo. 


430 MOVE 0,397: DRAW 640,397 
440 MOVE 616,0:DRAW 616,400 
450 MOVE 615,0:DRAW 615,400 
460 MOVE 464,211: DRAW 464,400 
470 MOVE 463,211: DRAW 463,400 
480 MOVE 489,210: DRAW 489,400 
490 MOVE 490,210: DRAW 490,400 
500 MOVE 0,152: DRAW 490,152 
510 MOVE 0,150: DRAW 490,150 
520 MOVE 490,0:DRAW 490,211 
530 MOVE 491,0: DRAW 491,211 
540 MOVE 624,340: FILL 1 

550 MOVE 473,392; FILL 1 

560 MOVE 624,176: FILL 1 

570 LOCATE 1,1 

580 PRINT CHR$(23)>;CHR$(1>; 
590 TAG 

600 palabra$="DIR” 

610 y1=340 

620 WHILE y2<>3 

630 yl1=y1-16:y2=y2+1 

640 MOVE 624, y1s 

650 PRINT MIDS(palabraS, y2,1); 
660 WEND 

670 palabra$="TABLE DRAW” 

680 y1=397: y2=0 

690 WHILE y2<>10 

700 y1=y1-16:y2=y2+1 

710 MOVE 473,y1 

720 PRINT MIDS(palabraS, y2,1); 
730 WEND 

740 palabra$="TECLADO" 

750 y1=176:y2=0 

760 WHILE y2<>7 

770 'y1=y1-16: y2=y2+1 

780 MOVE 624, y1 

790 PRINT MIDS(palabras$, y2, 1); 
800 WEND 

810 TAGOFF 

820 LOCATE 1,1 

830 PRINT CHR$(23>f CHR$C<0>; 
840 REM WINDOW*0,2,79,13,24 


TRUCOS Y RUTINAS BASICAS 


850 REM CLSW*O 

860 columi=317:colum2=239 

870 REX 

880 REM AMS ISO lajo lalalala laaJolojor 
890 REX AXoMkxxk DIBUJOS DE ICONOS adoooiaiojok 
A ES 
910 REM 

920 REM AMadOoldOlOalMaKK LAPIZ SÍ addMdadalaialaloldldJolK 
930 REM 

940 ORIGIN 14,columi 

950 DRAW 50,0: DRAW 50,50 

960 DRAW 0,50:DRAW C,45 

970 DRAW 50,45: MOVE 0,45 


980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 


DRAW 0,0:MOVE 5,10 
DRAW 5,35: MOVE 6,35 


DRAW 6,10: PLOT 7,22 
DRAW 20,26:DRAW 20,18 


DRAW 7,22:DRAW 20,18 

DRAW 42,18 

DRAW 42,18: DRAW 42,26 

DRAW 20,26 

MOVE 5,48;FILL 1 

REM 

REM AO RK LAPIZ NO ARO IO(OK 
REM 

ORIGIN 78,columl 


DRAW 50,0:DRAW 50,50 
DRAW 0,50: DRAW 0,45 
DRAW 50,45: MOVE 0,45 
DRAW 0,0: MOVE 5,10 
DRAW 5,35: MOVE 6,35 
DRAW 6,10:PLOT 12,22 
DRAW 20,26: DRAW 20,18 
DRAW 12,22:DRAW 20,18 
DRAW 45,18: DRAW 45,18 
DRAW 45,26: DRAW 20,26 
MOVE 5,48:FILL 1 

REM 

REM AMOOOOOCORORAKK BORRA OOOO 
REM 

ORIGIN 142,colum1 
DRAW 50,0:DRAW 50,50 
DRAW 0,50: DRAW 0,45 
DRAW 50,45: MOVE 0,45 
DRAW 0,0:MOVE 10,10 
DRAW 35,10: DRAW 40,15 
DRAW 40,35: DRAW 35,30 
DRAW 35,10:MOVE 10,10 
DRAW 10,30: DRAW 35,30 
MOVE 40,35: DRAW 15,35 
DRAW 10,30 

MOVE 5,48: FILL 1 

REM 

REM AMOS RECTA AOSIOROIGOIOIOOIOOO OK 
REM 

ORIGIN 206,columi 
DRAW 50,0: DRAW 50,50 
DRAW 0,50:DRAW 0,45 
DRAW 50,45: MOVE 0,45 
DRAW 0,0: MOVE 7,7 


DRAW 44,37 
MOVE 5,48: FILL 1 
REM 


REM AMOO RIOR CIRCULO AOS IOOOIOIO OK 
REM 
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1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 


ORIGIN 270,co1luml 

DRAW 50,0:DRAVW 50,50 

DRAW 0,50:DRAW 0,45 

DRAW 50,45: MOVE 0,45 

DRAW 0,0 

PLOT 25,23 

RAD: MOVE 40,23 

FOR x=0 TO 2*PI STEP 0.1 

DRAW 25+15*xC05S(x)>,23+15XSIN(x) 
NEXT 

MOVE 5,48:FILL 1 

REM 

REM MMMGIOIOGIOOOKK ELIPSE AOIORIOIOIOIO MOJO OK 
REM 

ORIGIN 334,c01lum1 

DRAW 50,0:DRAW 50,50 

DRAW 0,50: DRAW 0,45 

DRAW 50,45: MOVE 0,45 

DRAW 0,0 

PLOT 25,23 

RAD: MOVE 45,23 

FOR x=0 TO 2*PI STEP 0.1 

DRAW 25+20xC0S(x)>,23+11xXSINCx) 
NEXT 

MOVE 5,48: FILL 1 

REM 

REM ddMSSSOOOONKA CUADRADO AO NR OK 
REM 

ORIGIN 398,colum1 

DRAW 50,0: DRAW 50,50 

DRAW 0,50: DRAW 0,45 

DRAVW 50,45: MOVE 0,45 

DRAW 0,0:MOVE 10,10 

DRAW 40,10: DRAW 40,37 

DRAW 10,37: DRAW 10,10 

MOVE 5,48: FILL 1 

REM 

REM AMOSOONOKK RECTANGULO AMONIO NOK 
REM 

ORIGIN 14,colum2 

DRAW 50,0: DRAW 50,50 

DRAW 0,50: DRAW 0,45 

DRAW 50,45: MOVE 0,45 

DRAW 0,0: MOVE 7,13 

DRAW 43,13: DRAW 43,34 

DRAW 7,34: DRAW 7,13 

MOVE 5,48:FILL 1 

REM 

REM AGO TRIANGULO AAA 
REM 

ORIGIN 78,colum2 

DRAW 50,0:DRAW 50,50 

DRAW 0,50: DRAW 0,45 

DRAW 50,45: MOVE 0,45 

DRAW 0,0:MOVE 10,8 

DRAWY 40,8:DRAW 25,38 

DRAW 10,8: MOVE 5,48 

FILL 1 

REM 

REM aaSdodOlOloidioiaOk PINCEL AdddaOOIOIOojoioodiok 
REM 

ORIGIN 142,co1lum2 

DRAW 50,0: DRAW 50,50 

DRAW 0,50: DRAW 0,45 

DRAW 50,45: MOVE 0,45 


2150 DRAW 0,0:MOVE 21,45 2800 DRAW 50,45: MOVE 0,45 


2160 DRAW 21,35:DRAW 28,35 2810 DRAW 0,0:MOVE 0,25 
2170 DRAW 28,45: MOVE 21,32 2820 DRAW 20,25; DRAW 25,20 
2180 DRAW 23,28: DRAW 27,28 2830 DRAW 30,25: DRAW 35,25 
2190 DRAW 28,35: MOVE 22,28 2840 DRAW 40,20: DRAW 40,0 
2200 DRAW 19,24: DRAW 25,12 2850 MOVE 20,10:DRAW 25,15 
2210 DRAW 31,25: MOVE 28,28 2860 DRAW 30,10: DRAW 25,7 
2220 DRAW 31,25 2870 DRAW 20,10: DRAW 20,10 
2230 FOR h=21 TO 30 STEP 2 2880 MOVE 5,45: DRAV 5,35 
2240 FOR v=5 TO 13 2890 DRAW 12,35: DRAW 12,45 
2250 PLOT h,v 2900 MOVE 5,35: DRAW 6,28 
2260 NEXT 2910 DRAW 11,28:DRAW 12,35 
2270 NEXT 2920 MOVE 6,28: DRAW 3,24 
2280 MOVE 25,14: FILL 1 2930 DRAW"8,15: DRAW 14,25 
2290 MOVE 5,48: FILL 1. 2940 MOVE 12,28:DRAW 15,25 
2300 REM 2950 FOR h=5 TO 12 STEP 2 
2310 REM AMXMAOMOMNOK RELLENA ooaaloololojolojolVio: 2960 FOR v=5 TO 15 

2320 REM 2970 PLOT h, v 

2330 ORIGIN 206,colum2 2980 NEXT v,h 

2340 DRAW 50,0: DRAW 50,50 2990 MOVE 8,26:FILL 1 

2350 DRAW 0,50: DRAW 0,45 3000 MOVE 8,23:FILL 1 

2360 DRAW 50,45: MOVE 0,45 3010 MOVE 5,48: FILL 1 

2370 DRAW 0,0:MOVE 22,4 3020 REM 

2380 DRAW 27,4:DRAW 27,18 3030. REM AMMMOOIOIOOMOOO TEXTO MOOIOIOOIOIOIOIORoK 
2390 DRAW 25,20:DRAW 22,18 3040 REM 

2400 DRAW 22,4: MOVE 25,20 3050 ORIGIN 398,c01um2 
2410 DRAW 25,24:DRAW 43,24 3060 DRAW 50,0: DRAW 50,50 
2420 MOVE 25,22: DRAW 44,22 3070 DRAW 0,50:DRAW 0,45 
2430 DRAW 44,34: MOVE 43,24 3080 DRAW 50,45: MOVE 0,45 
2440 DRAW 43,35:DRAW 41,35 3090 DRAW 0,0: TAG: MOVE 6,28 
2450 DRAW 41,30:DRAW 10,30 3100 PRINT” TEXTO"; : TAGOFF 
2460 DRAW 10,38: DRAV 41,38 3110 MOVE 5,48:FILL 1 

2470 DRAW 41,35:MOVE 20,36 3120 REM 

2480 FILL 1: MOVE 5,48 3130 REM AMASIAMIOORISIOOK CUBO RRdRMOOIOolOlalOIOjOK 
2490 FILL 1 3140 REM 

2500 REM 3150 ORIGIN 563,338 

2510 REM Ok  AEROGRAFO AdooodaIOIOIaIOIOlNIOK 3160 DRAW 40,0: DRAW 40,50 
2520 REM 3170 DRAW 0,50:DRAW 0,45 
2530 ORIGIN 270,colum2 3180 DRAW 0,0:MOVE 0,45 
2540 DRAW 50,0:DRAW 50,50 3190 DRAW 40,45: MOVE 5,48 
2550 DRAW 0,50:DRAVW 0,45 3200 FILL 1 

2560 DRAW 50,45: MOVE 0,45 3210 MOVE 8,5:DRAW 32,5 
2570 DRAW 0,0: MOVE 30,4 3220 DRAW 33,6: DRAW 33,30 
2580 DRAW 40,4:DRAW 40.25 3230 DRAW 7,30: DRAW 7,6 
2590 MOVE 41,25: DRAW 41,4 3240 MOVE 33,30:DRAW 33,35 
2600 MOVE 42,4:DRAW 42,25 3250 DRAW 32,36:DRAW 8,36 
2610 DRAW 35,30: DRAW 38,30 3260 DRAW 7,35: DRAV 7,30 
2620 MOVE 40,32: DRAW 34,32 3270 MOVE 14,36: DRAW 17,40 
2630 MOVE 38,34:DRAW 15,34 3280 DRAW 23,40:DRAW 26,36 
2640 DRAW 15,30:DRAW 28,18 3290 PLOT 10,10:DRAW 10,25 
2650 DRAW 30,4:MOVE 30,8 3300 PLOT 15,10:DRAW 15,25 
2660 DRAW 34,8:MOVE 30,12 3310 PLOT 20,10:DRAW 20,25 
2670 DRAW 34,12: MOVE 28,16 3320 PLOT 25,10:DRAW 25,25 
2680 DRAW 34,16: MOVE 8,32 3330 PLOT 30,10:DRAW 30,25 
2690 DRAW 16,32: DRAW 32,16 3340 REM 

2700 MOVE 16,32: DRAW 18,32 3350 REM AMNESIA CINTA SORDO 
2710 DRAW 24,24: DRAW 16,20 3360 REM 

2720 DRAW 16,14; DRAW 20,6 3370 ORIGIN 503,278 

2730 MOVE 5,48: FILL 1 ; 3380 DRAW 50,0:DRAW 50,50 
2740 REM 3390 DRAW 0,50:DRAW 0,45 
2750. REM aaoldalajalajdldlolaok PALETA AMMOOOOMOIOOVOOOK 3400 DRAW 50,45:MOVE 0,45 
2760 REM 3410 DRAW 0,0 

2770 ORIGIN 334,colum2 3420 MOVE 10,5:DRAW 10,40 
2780 DRAW 50,0:DRAW 50,50 3430 DRAW 38,40:DRAW 40,38 
2790 DRAW 0,50:DRAW 0,45 3440 DRAW 40,7:DRAW 38,5 
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<= IAEA 
BILIAR ASA AAN 
pa E A 


sd: 

E 

EN 
qa E 
] 


TRUCOS Y RUTINAS BASICAS 


ATADO REM aaa lalalala doo 
4750 REM xxkk TABLE-—DRAW xk 


4760 REM xxx PROGRAMA PRINCIPAL *kxkx 
4770 REM *xxxk Un programa realizado *x*x 


4780 REM xxx Por Kkxk 
4790 REM *Xxxk Carlos A. Maria Morin Xxx 
4800 REM xxx *xkx 
4810 REM xxkxk (C)> Ediciones KK k 


4820 REM **xx Siglo Cultural 1987 Xxx 
4830 REM AROSA SOI 
4840 REM 
4850 REM Saa all lll 
4860 REM AMMMXOONOKK INICIALIZACION AX IOO OK 
4870 REM AAAMOOO III III III 
4880 REM 
4890 CLEAR 
4900 ON ERROR GOTO 12490 
4910 MODE O 
4920 LOCATE 2,13 
4930 PRINT"TABLE DRA v 
4940 FOR ret=1 TO 3000 
4950 NEXT 
4960 SYMBOL 254,192,224,240,248,252,254,219,136 
4970 SYMBOL 255,12,12,6,6,3,3,1,0 
4980 INK 0,0: INK 1,26 
4990 x%=320 
5000 y%=200 
5010 xx%=632 
5020 yy%=250 
5030 dat=1 
5040 modo=2 
5050 modo2=-1 
5060 pluma=1 
5070 memor=1 
5080 papel=0 
5090 borra=0 
5100 spedi=1 
5110 sped2=1 
5120 DIM colors$(20> 
5130 MODE 2 
5140 BORDER 0 
5150 GOSUB 5290 
5160 CALL 41016 
5170 MODE 2 
5180 LOAD"PANTALLA. DRA”: * CARGA PANTALLA DE ICONOS 
5190 GOSUB 5470 
E 5200 CALL 40960 
5210 CALL 41004 
5220 BORDER 13 
5230 GOTO 5430 
5240 REM 
5250 REM ISR lalala Slo Olalla aloja lalola akok 
5260 REM adaoVlONMOOK CARGA MAQUINA addPIOVIRNKK 
5270 REM ASIS lala lalalala ajajajaja lalalala 
5280 REM 
5290 RESTORE 12550 
5300 MEMORY 40959 
5310 FOR n=40960 TO 41029 
5320 READ a 
5330 suma=suma+ta 
5340 POKE n,a 
5350 NEXT 
5360 RETURN 
5370 IF suma<>13935 THEN PRINT"ERROR EN DATAS" 
5380 REM 
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5390 
5400 
5410 


ES 
REM ooo MUEVE CURSOR DE ICONOS AxXoxótokxk 
REM MSI Sl lll llOIIORRIOK: 


5420 REM 

5430 INKX 1,26: INX 0,0 

5440 ORIGIN 0,0 

5450 GOSUB 9870 

5460 GOTO 9910 

5470 ORIGIN 0,0 

5480 PRINT CHR$(23);CHRS(1); 
5490 GOSUB 5630 

5500 RETURN 

5510 PRINT CHR$S(23);CHRS(1); 
5520 GRAPHICS PAPER 0 


5530 IF INKEY(8>=0 THEN GOSUB 5630: xx%=MAX(xx%, 16)-fast:GOSUB 5630:dat=1 


5540 IF INKEY(1)=0 THEN GOSUB 5630: xx%=M 
5550 IF INKEY(0)=0 THEN GOSUB 5630: yy%=M 
5560 1F INKEY(2)=0 THEN GOSUB 5630: yy%=M 
5570 IF dat=1 THEN GOSUB 5630: GOSUB 5700 
5580 IF INKEY(15>=0 THEN fast=48 ELSE fa 
5590 IF INKEY(18)=0 THEN GOSUB 5840 

5600 IF INKEY(7>=0 THEN 10330 

5610 PRINT CHR$(23)>;CHRS(0); 

5620 GOTO 5510 

5630 TAG 

5640 MOVE xx%, yy%, 1 

5650 PRINT CHRS(254); 

5660 MOVE xx%, yy%-16, 1 

5670 PRINT CHRS(255); 

5680 TAGOFF 

5690 RETURN 

5700 xx%=MAX(xx%, 0) 

5710 xx%=MIN(xx%, 624) 

5720 yy%=MIN(yy%, 400) 

5730 yy%=MAX(yy%, 234) 

5740 GOSUB 5630 

5750 dat=0 

5760 RETURN 

5770 REM 

5780 REM AS OOOOIOOOIOOOOOIOIOIGIOIOIOIIOOONIPIOOK 


INCxx%, 624) +fast: GOSUB 5630:dat=1 
INC(yy%, 378) +fast: GOSUB 5630: dat=1 
AX(yy%, 250)-fast: GOSUB 5630: dat=1 


st=16 


ES 


5790 REM xxkxXXkxX* CHEQUEA OPCION DESEADA AXxXXkx 
IIA IS 


5810 REM 
5820 REM dodookkxx* OPCIONES DE DIBUJO *xx 
5830 REM 


AO 


5840 IF xx%>13 AND xx%<65 AND yy%>315 AND yy%<368 THEN lapiz=1:GOSUB 10390: GOTO 


9910 

5850 1F xx%>77 AND xx%<129 AND yy%>315 A 
9910 

5860 IF xx%>141 AND xx%<193 AND yy%>315 
1:GOSUB 10190: GOSUB 10390: :GOTO 9910 

5870 IF xx%>205 AND xx%<257 AND yy%>315 

GOTO 9910 

5880 IF xx%>269 AND xx%<321 AND yy%>315 
:GOTO 9910 

5890 IF xx%>333 AND xx%<385 AND yy%1315 

GOTO 9910 

5900 IF xx%>398 AND xx%<449 AND yy2%>315 

GOTO 9910 


ND yy%<368 THEN lapiz=0:GOSUB 10390: GOTO 
AND yy%<368 THEN borra=NOTC(bórra): lapiz= 
AND yy%<368. THEN GOSUB 10390: GOSUB 6210: 
AND yy%<368 THEN GOSUB 10390: :GOSUB 6400 
AND yy%<368 THEN GOSUB 10390:G08UB 6640: 


AND yy%<368 THEN GOSUB 10390: GOSUB 7160: 


5910 1F xx%>13 AND xx%<65 AND yy%>238 AND yy%<289 THEN GOSUB 10390:GOSUB 7410: GO 


TO 9910 


5920 IF xx%4>77 AND xx%<129 AND yy%>238 AND yy%<289 THEN GOSUB 10390: GOSUB 7740:;G 


OTO 9910 


5930 IF xx%>141 AND xx%<193 AND yy%>238 AND yy%<289 THEN GOSUB 10390: GOSUB 8100: 


GOTO 9910 
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TRUCOS Y RUTINAS BASICAS 


7150 REM 
7160 opera=1 
7170 WHILE INKEY<18><>0 
7180 GOSUB 9910 
7190 WEND 
7200 orix=x% 
7210 orliy=y% 
7220 GOSUB 9870 
7230 FOR ret=1 TO 500 
7240 NEXT 
7250 WHILE INKEY(18><>0 
7260 GOSUB 9910 
7270 WEND 
7280 x%=(x%-orix)+orix 
7290 y%=((x%-orix)+oriy)>x0.941 
7300 PLOT orix,oriy, pluma 
7310 MOVE orix,orly, pluma 
7320 DRAW x%,oriy, pluma 
7330 DRAW x%,y%, pluma 
7340 DRAW orix, y%, pluma 
7350 DRAW orix, ordy, pluma 
7360 opera=0 
7370 RETURN 
7380 REM 
7390 REM AO RECTANGULO ARARORORORO KK 
7400 REM 
7410 opera=1 
7420 FOR ret=1 TO 500 
7430 NEXT 
7440 WHILE INKEY(18><>0 
7450 GOSUB 9910 
7460 WEND 
7470 orix=x% 
7480 oriy=y% 
7490 GOSUB 9870 
7500 FOR ret=1 TO 500 
7510 NEXT 
7520 WHILE INKEY(18><>0 
7530 GOSUB 9910 
7540 WEND 
7550 x%=(x%-orix)+orix 
7560 GOSUB 9870 
7570 FOR ret=1 TO 500 
7580 NEXT 
7590 WHILE INKEY(18><>0 
7600 GOSUB 9910 

bo 7610 WEND 
7620 y%=((y%-oriy)+toriy) 
7630 PLOT orix,oriy, pluma 
7640 MOVE orix,oriy, pluma 
7650 DRAW x%,oriy, pluma 
7660. DRAW x%,y%, pluma 
7670 DRAW orix,y%, pluma 
7680 DRAW orix,oriy, pluma 
7690 opera=0 
7700 RETURN 
7710 REM 
7720 REM AMOO TRIANGULO AMOO OOIOROIOKOK 
7730 REM 
7740 opera=1 
7750 FOR ret=1 TO 500 
7760 NEXT 
7770 WHILE INKEY(18)<>0 
7780 GOSUB 9910 
7790 WEND 
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7800 orix=x% 

7810 oriy=y% 

7820 GOSUB 9870 

7830 FOR ret=1 TO 500 
7840 NEXT 

7850 WHILE INKEY(18)<>0 
7860 GOSUB 9910 

7870 WEND 

7880 x1%=(x%-orix)torix 
7890 y1%=((y%-oriy)+oriy) 
7900 x%=x1% 

7910 y%=y1% 

7920 GOSUB 9870 

7930 FOR ret=1 TO 500 
7940 NEXT 

7950 WHILE INKEY(18)<>0 
7960 GOSUB 9910 

7970 WEND 

7980 y2%=((y%-oriy)+oriy) 
7990 x2%=x% 

8000 PLOT orix,oriy, pluma 
8010 MOVE orix, oriy 

8020 DRAW x1%,y1%, pluma 
8030 DRAW x2%, y2%, pluma 
8040 DRAWY orix,oriy, pluma 
8050 opera=0 

8060 RETURN 

8070 REM 

8080 REM AMONIO KA PINCEL oO OOOO OoK 
8090 REM y 
8100 opera=1 

8110 WHILE INKEY(18)<>0 
8120 GOSUB 9910 

8130 WEND 

8140 FOR ret=1 TO 500 
8150 NEXT 

8160 WHILE INKEY(18><>0 
8170 GOSUB 9870 

8180 GOSUB 9910 

8190 MOVE x%-5, y% 

8200 DRAW x%+5,y%, pluma 
8210 MOVE x%, y%+6 

8220 DRAW x%,y%-6, pluma 
8230 WEND 

8240 opera=0 

8250 RETURN 

8260 REM 

8270 REM Adoro RELLENO daooaalalalalajolojaK 
8280 REM - 
8290 opera=1 

8300 WHILE INKEY(18)<>0 
8310 GOSUB 9910 

8320 WEND 

8330 FOR ret=1 TO 500 
8340 NEXT 

8350 WHILE INKEY(18><>0 
8360 WEND 

8370 GOSUB 9870 

8380 MOVE x%, y% 

8390 FILL pluma 

8400 opera=0 

8410 RETURN 

8420 REM 

8430 REM Ax AEROGRAFO Aaa 
8440 REM 
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TRUCOS Y RUTINAS BASICAS 


9730 
9740 
9750 
9760 
9770 
9780 
9790 
9800 
9810 
9820 
9830 
9840 
9850 
9860 
9870 
9880 
9890 
9900 
9910 
9920 
9930 
9940 
9950 
9960 
9970 
9980 
9990 


PRINT b$; 

MOVE condi+LEN(b$>)x8, cond2 

PRINT CHRS(143>" ”; 

IF LEN(b$>>13 THEN 9780 

VEND 

MOVE cond1i+LEN(b$>x8, cond2 

PRINT" ”; 

TAGOFF 

RETURN 

REM 

REM RSS OJOS RIOR 

REM ARSRSODIOIRIONE MOVER PIXEL XMRORRODIONK 

REM OSOS Ill ll OOOO 

REM 

ORIGIN 0,0 

PRINT CHR$(23);CHR$(1>; 

GOSUB 10110 

RETURN 

GOSUB 10170 

GOSUB 10220 

IF pluma=papel THEN PLOT x%,y%, memor 

IF INKEY(20)=0 THEN GOSUB 10110: x%=x%-fast:GOSUB 10110 
IF INKEY(4)=0 THEN GOSUB 10110: x%=x%+fast:GOSUB 10110 
IF INKEY(11>)=0 THEN GOSUB 10110: y%=y%+fast: COSUB 10110 
IF INKEY(14>=0 THEN GOSUB 10110: y%=y%-fast:GOSUB 10110 
1F INKEY<3)=0 THEN GOSUB 10110: x%=x%+tfast: y%=y%+tIast:GOSUB 10110 
IF INKEY(10>=0 THEN GOSUB 10110: x%=x%-fast: y%=y%tfast: GOSUB 10110 


10000 1F INKEY(13)=0 THEN GOSUB 10110: x%=x%-fast: y%=y%-fast: GOSUB 10110 
10010 IF INKEY(5)=0 THEN GOSUB 10110: x%=x%+fast: y%+=y%-fast: GOSUB 10110 
10020 1F INKEY(12)=0 THEN fast=16 ELSE fast=1 

10030 IF INKEY(15)=0 THEN GOSUB 10110 

10040 IF INKEY(7)=0 THEN GOSUB 10110:GOTO 10240 

10050 1F opera=0 THEN 9930 ELSE PRINT CHR$(23);CHR$(0); : RETURN 

10060 REM 

10070 REM AM SSOOSISOOO ASIS lalo 

10080 REM adiaidiORaMOlOk. SUBRUTINAS AdOOONONIOO: 

10090 REM aaSldlSMO SIS lSlOlSlSlolSlalolola Olla lalo 

10100 RÉM 

10110 x%=MIN(6309,x%) 


10120 


x%=MAX(0, x%) 


10130 y%=MIN(399, y%) 
10140 y%=MAXC0, y%) 
10150 PLOT x%,y%, pluma 
10160 RETURN 


10170 IF lapiz=0 THEN PRINT CHR$(23);CHR$(1); ELSE PRINT CHR$(23);CHR$(0); 


. 10180 RETURN 
10190 IF borra=-1 THEN memor=pluma: pluma=papel 


10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 


IF borra=0 THEN lapiz=0: pluma=memor 
RETURN 

IF colpap=1 THEN GRAPHICS PAPER papel: CLS: colpap=0 
RETURN 

GOSUB 10110 

CALL 41016 

MODE 2 

WINDOW*0,2,61,17,24 

CLSHO 

BORDER O 

CALL 40980 

PAPER papel 

GOTO 5510 


10330 CALL 40960 
10340 MODE modo 
10350 CALL 41004 
10360 BORDER 13 
10370 PAPER papel 
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TRUCOS Y RUTINAS BASICAS 


12300 RETURN 

12310 REM 

12320: REM AMOS III IO OK 
12830 REM xdoiotkk VELOCIDAD DE LAS TINTAS XXXxkx 
II A SS 
12350 REM 

1 1F INKEY(0>=0 THEN spedl=MIN(spedl, 254>+1 
12870 IF INKEY(2)=0 THEN sped1=MAX(sped1,2)-1 
112380 1F INKEY(8)=0 THEN sped2=MAX(sped2,2)-1 
12890 1F INKEY(1)=0 THEN sped2=MIN(sped2,254)+1 
12400 LOCATE 21,24 

12410 PRINT"*” 

12420 LOCATE 33,24 

12430 PRINT. USING" *4*”; spedl 

12440 LOCATE 36,24 

12450 PRINT "+4"; USING” WHR"; sped2 

12460 SPEED INK spedl, sped2 

12470: 1F INKEY(18)=0 THEN LOCATE 21,24: PRINT” ”: RETURN 
12480 GOTO 12360 

12490 RESUME NEXT:'* TRATAMIENTO DE LOS ERRORES 
12500 REM 

12510 ¿REM MMMM SIA dll TORIO 
12520 REM XXXXXXXX* DATAS DE MAQUINA AXXIIKX 
12530 REM AMO OSIRIS ION 
12540 REM 

12550 DATA 62,255,205,91,189,245,17,0,64,66 
12560 DATA 75,33,0,192,237,176,241,195,91,189 
12570 DATA 62,255,205,91,189,245,33,0,64,68 
12580 DATA 77,17,0,192,237,176,241,195,91,189* 
12590 DATA 0,0,0,0,17,0,192,33,32,78 

12600 DATA 1,0,64,237,176,201,17,32,78,33 
12610 DATA 0,192,1,0,64,237,176,201,33,32 
12620 DATA 78,1,0,64,54,0,35,11,62,0 

12630 REM 

12640 REM AN RRA ISR ISI IR 
12650 REM XXXXXAX*Xx DATAS DE COLORES ARROOOK 
12660 REM AMONIO ROI 
12670 REM 

12680 


DATA NEGRO, AZUL, B/AZUL, ROJO, MAGEN. , MALVA, B/ROJO, PURPU.:, B/MAG. , VERDE,CÍANO, 


C/AZUL, AMAR. , BLAN. ,P/AZUL, NARAN. , ROSA, P/MAG. , B/VER., 
"M/VER. ,B/CIAN. ,L/VER.,P/VER. , P/CIAN.,B/AMAR. ,P/AMAR. ,B/BLAN. , 


1 Instrucciones de uso de TABLE 
DRAW 


Se maneja de una forma muy sencilla, 
por ICONOS, lo cual facilita la familiarización 
de este tablero de dibujo. 

Empecemos por las teclas que hay que 
manejar en el transcurso de un dibujo: 

En la pantalla de ICONOS: 

— Las teclas cursoras. Realizan la fun- 
ción, exclusivamente, de mover por la panta- 
lla el cursor para seleccionar la función de 
ICONOS requerida. 

— [RETURN]. Acepta la opción de 1ICO- 
NOS deseada. 
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— Tecla 0 — F en el teclado de dibu- 
jo. En conjunto, con las teclas cursoras va más 
rápido el cursor de ICONOS. 

— Tecla . —> M en el teclado de dibujo. 
Pasa al menú de ICONOS o al tablero de dibu- 
jo automáticamente. 


En el tablero de DIBUJO: 
— Las teclas del teclado de definición. 
Son las siguientes: 


TECLAS CURSORAS 
7 — DIAGONAL ARR-IZO. 


8 — ARR. 
9 — DIAGONAL ARR-DER. 
4 — IZQ. 


6 — DER. 

1 — DIAGONAL ABA-IZQ. 

— 2 ABA 

3 — DIAGONAL ABA-DER. 

S — FAST — tecla que combinada con 
las teclas cursoras da mayor rapidez al cursor 
de dibujo. 


NOTA: Para seleccionar el ángulo de la 
elipse se utiliza la tecla 0 —> F en el teclado del 
dibujo. 


Y a eto cados ina 
Í : 


/ 


VU IB a AA 


mu. < 
y es 0] » 


y pa 
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COLOMES DISPONIBLES | 


e 
"E 
NR 

4 
E 

8 
E 
E 
) y 
D Ks 
hs C 
: 
A 


LUMA  USCARDTO DE TINTERO | 
SIMPLE/COMPUESTO 
SPEED INXK 16% 1 
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En el menú de PALETA. Se utilizan esen- 
cialmente las teclas: 


— [SPACE]. Sirve para seleccionar el 
cambio de tintas del PAPEL o de la PLUMA, 
así como gestionar el cambio de tintas simples 
o compuestas. 

[ALGARROBA  ]. Sirve para defi- 
nir los tinteros con el color deseado, pudien- 
do ser simples o compuestos; en el último caso 
se puede seleccionar al final del proceso la ve- 
locidad de las tintas con las teclas Cursoras, 


COLONES DISPONIBLES | 
NEGRO 
Zi 


PUR UTA RUZ 
DIDDAVDIDO E 


LRD as 
ZIIZ> 


MAD  MISEMBIO DE TINTERO | 
¿IMPLE/COMPUESTO 
PEED IMK 10% 1 


TRUCOS Y RUTINAS BASICAS 630 


APRENDER CON EL ORDENADOR 0000 


NATURALEZA Y TECNOLOGIA 


2 Momentos de inercia 


ABEMOS que en Dinámica 
de traslación, al aplicar una 
fuerza sobre un cuerpo éste 
toma una aceleración; pues 
bien, en Dinámica de rota- 
ción, al aplicarle una fuerza 
a un cuerpo, éste gira alre- 
dedor de un eje con una de- 
terminada aceleración angular. 

La ecuación fundamental de la Dinámi- 
ca de rotación es: 


M=Il:a 


Si, por ejemplo, quisiéramos hallar la 
energía cinética de rotación de un cuerpo, sa- 
bemos que es igual a la suma de las energías 
cinéticas de todas las partículas que constitu- 
yen ese sólido: 


l 
q M-v)+ 


(my - v3) + 


Pero podemos deducir de esta fórmula 
otra que nos permitirá hallar el valor del mo- 
mento de inercia: 


j + m,(w-1,*+ y Mw IA 


= y w*- (m, «14m, 1 +...) 
De aquí es de donde sacamos el valor 
del momento de inercia de un sólido rígido en 
rotación (I): 


I=M,*1,+m,*1+m3-12 +... 


Así, pues, la energía de rotación de un 
sólido quedaría en función del momento de 
inercia así: 


T=1/2-1+ w? 


Pero en todo caso tenemos que tener en 
cuenta que el momento de inercia es distinto 
según el sólido de que se trate. Pero además 
dentro de un mismo sólido es distinto según el 
eje de giro que se tome. Por ejemplo, en una 
lámina plana es distinto el momento de iner- 
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cia si se toma el eje que pasa por la cara más 
ancha de la lámina, que si se toma el eje que 
pase paralelo a esa cara. 


Cilindro 


Lámina delgada 


0) Sy 


Paralelepípedo 


Pe 


Esfera 
maciza 


Figura 1 


También depende de la masa del cuer- 
po que esté en rotación. Por ejemplo, si esta- 
mos tratando dos esferas del mismo tamaño 
que tengan el mismo eje de rotación, pero una 
sea hueca y otra sea maciza, el momento de 
inercia será distinto. 


MOMENTOS DE INERCIA 


APRENDER CON EL ORDENADOR 


REM 2446 2414 3690 36 D6-D0D6 16 96d 26 dE 2 HE 66 HE 6H 
REM _x* MOMENTOS DE INERCIA *x 
REM 9496 3406 de 06 96 26 DE 6 DD 0 DEM M6 2 36 20 
DIM T$(8) 
FOR I=1 TO 8 
READ T$(1> 
38 NEXT 1 
CLs 
SO PRINT "RARA RAR MOMENTOS 
HAHAHA 
60 LOCATE 5,30:PRINT "1.- VARILLA" 
70 LOCATE 7,30:PRINT "2.- ARO" 
80 LOCATE 9,30:PRINT *"3.- DISCO" 
90 LOCATE 11,30:PRINT "4.- CILINDRO" 

100 LOCATE 13,30:PRINT "5.- ESFERA HUECA” 
110 LOCATE 15,30:PRINT "4.- ESFERA MACIZA" 
120 LOCATE 17,30:PRINT "7.- LAMINA RECTANGULAR" 
130 LOCATE 19,30:PRINT "8.- PARALELEPIPEDO” 
140 LOCATE 23,10: INPUT "QUE OPCION ELIGES *¿X 
150 1F X<1 OR X>8 THEN GOTO 140 

160 CLS:LOCATE 2,10:PRINT Té(X> 

170 IF X=2 OR X=3 OR X=4 OR X=5 OR X=6 THEN GOTO 390 

180 IF X=1 THEN GOTO 345 

190 IF X=? THEN GOTO 280 
200 LOCATE 4,10: INPUT "LADO BASE:";B 
210 IF B<0 THEN GOTO 200 
220 LOCATE 6,10: INPUT "ANCHO:"3C 
230 IF C<0 THEN GOTO 220 
240 LOCATE 38,10: INPUT "MASA:"3M 
250 1F M<0 THEN GOTO 240 
260 LET I=M*((B*2)+(0* 23/12 
270 LOCATE 12,10;PRINT "I=";M,"*("¡B"2;"+"30*23">/12=";1:G0TO 1000 
280 LOCATE 4,10: INPUT "LADO PARÁLELO A LA BASE MAYOR:";L 
290 IF L<0 THEN GOTO 280 
300 LOCATE 3,10: INPUT "MASA: ";M 
310 IF M<0 THEN GOTO 300 
320 LET I=M*(L* 2/12 

LOCATE 12,10:+PRINT "I="3M3"x*"3L"2;"/12=";1:G0T0 1000 
LOCATE 4,10: INPUT "LONGITUD DE LÁ VARILLA:+";L 

IF L<0 THEN GOTO 340 
LOCATE 8,10: INPUT "MASA; *M 

1F M<0 THEN GOTO 360 

LOCATE 12,10:PRINT "I="3M3"x"3L*23"/12=";1:;GOTO 1000 
LOCATE 4,10: INPUT "RADIO:"¿R 

IF R<D THEN GOTO 390 
LOCATE 8,10: INPUT "MASA: "¿M ' 
IF M<0 THEN GOTO 410 

IF X=32 OR X=4 THEN GOTO 520 

TF X=2 THEN GOTO 500 

1F X=5 THEN GOTO 490 

LET-1=2*Mx(R" 2/5 

LOCATE 12,10:PRINT "I=2*"3M;"x"3R"23"/5="31:G0TO 1000 
LET 1=2*Mx*x(R* 2/3 

LOCATE 12,10:;PRINT "I=2*"¿M;"*"3R*2;"/3=";I1:GOTO 1000 
LET I=Mx(R”2) 

LOCATE 12,10:PRINT "I=2*"3M3"x"3R"23"=";1:G0TO 1000 
LET I=M*(R*2)/2 

LOCATE 12,10;PRINT “I=2x*x"3M3"x*"3R*23"/2="51:G0TO 1000 

REM ARAIIAAR ARAARR RAR 

REM x* FINAL DEL PROGRAMA xx 

REM 09006 0H ARAN AE 

LOCATE 20,10:PRINT "OTRO MOMENTO DE INERCIA <S/N) 2% 

LET Y$=INKEY$:1F Y$="" THEN GOTO 1040 

IF Y$="S" OR Y$="s" THEN GOTO 40 

END 

DATA "-- VARILLA --","--= ARO -=-","--= DISCO --","-- CILINDRO --","-- ESFERA 
HUECA --","-- ESFERA MACIZA --","-- LAMINA RECTANGULAR --*,*-- PARALELEPIPEDO -- 


DE INERCIA dm 


El programa nos muestra al principio un 
menú de todos los cuerpos de los que pueda 
hallar su momento de inercia. Una vez elegi- 
do el cuerpo, se pedirá sucesivamente los da- 
tos referentes al cuerpo para poder calcular 
su momento de inercia. 


Este programa es válido para la totali- 
dad de los ordenadores que venimos tratando 
en esta obra, si bien necesita alguna modifica- 
ción que a continuación se detalla. 
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Modificaciones para otros equipos 


SPECTRUM 

35 DIM T$ (8, 25) 

Sustituir LOCATE X,Y:PRINT ... por 
PRINT AT X, Y... 

1060 GOTO 9999 


AMSTRAD Y MSX 
Sustituir LOCATE X, Y por LOCATE Y,X 


COMMODORE 

Sustituir CLS por PRINT CHR$(147) en 
líneas 40 y 160. 

Simular la sentencia LOCATE con la sub- 
rutina gráfica explicada en el tomo 1 de esta 
obra, 


MATEMATICAS 


3] Cónicas 


Dentro del tema general de la Geome- 
tría euclídea del plano, y basándose en los 
conceptos -de distancia, pueden estudiarse 
también las cónicas: circunferencia, elipse, hi- 
pérbola y parábola. 

Cada una de estas figuras es definida 
como un conjunto de puntos entre los que exis- 
ten relaciones fácilmente expresables me- 
diante distancias. 

Vamos a analizar, una por una, las cur- 
vas que se tratan en el programa: 


— Elipse 

Se llama elipse al lugar geométrico de 
los puntos de un plano, tales que la suma de 
sus distancias a dos puntos fijos llamados fo- 
cos es constante, 

La importancia de la elipse queda pa- 
tente al relacionarla con movimientos tan im- 
portantes como el de las partículas de un áto- 
mo o como el de los planetas alrededor del Sol. 


CONICAS 


F y F" son los focos. La distancia de F a 
PF" es la llamada distancia focal, que también 
se representa como 2c. 

d y d' se llaman radios vectores y su 
suma se designa por Za. 

El punto medio 0 de FF' se llama centro 
de la elipse. La recta FF" se llama eje focal y 
la mediatriz del segmento FF es el eje secun- 
dario. 

Los puntos A,A', B,B' en que la curva 
corta a los ejes se llaman vértices. 

El segmento AA' se llama eje mayor de 
la elipse y, como la elipse es una curva simé: 
trica respecto de los ejes y del centro, se pue- 
de probar que AA' = Za. 

La ecuación de la elipse que tiene como 
centro el origen de coordenadas es: 


— Circunferencia 

Es un caso particular de la elipse en el 
que a y b son iguales. La circunferencia se de- 
fine como el lugar geométrico de los puntos 
de un plano que equidistan de un punto fijo lla- 
mado centro. 


CIRCUNFERENCIA 


Figura 3 


Su ecuación característica es: 
X 44 Y? =p 


“londe R representa el radio de la circunferen- 
cla. 


— Hipérbola 

Se llama así al lugar geométrico de los 
..untos del plano tales que la diferencia de sus 
“tistancias a dos puntos fijos, llamados focos, 
5 Constante. 


APRENDER CON EL ORDENADOR 2 


La hipérbola es otra de las curvas que 
tiene gran utilidad en el campo de la Física y 
en el de las Ciencias en general. Recordemos 
la ley de Boyle Mariotte que queda bien re- 
presentada por una hipérbola. 


HIPERBOLA 


Figura 4 


Al igual que en la elipse, la distancia FP” 
se llama distancia focal y se designa por 2 c. 

d y d' con respecto a P (un punto de la 
hipérbola) son los radios vectores y su dife- 
rencia se designa por 2a. 


d - d' = 2a 


de donde podemos deducir que a < c. 

La recta determinada por los focos F y 
F' se llama eje focal o eje transverso. La me- 
diatriz del segmento FF" es el eje no transver- 
so, y el punto medio del segmento FF” se lla- 
ma centro de la hipérbola (0) y es su centro 
de simetría. 

Los puntos A y A', que es donde la cur- 
va corta a los ejes, se llaman vértices de la hi- 
pérbola; y se prueba también que: 

AR' = 2a 

El cociente e = c/a se llama excentrici- 
dad de la hipérbola y es un número mayor que 1. 

Ecuación de la hipérbola con eje de si- 
metría, el eje de ordenadas: 


Xx Y? 
O =55| 
— Parábola 


Se llama así al lugar geométrico de los 
puntos del plano que equidistan de un punto 
fijo y de una recta fija llamada directriz. 

La parábola es otra de las curvas de 
gran utilidad en campos como la Física, ya 
que, por ejemplo, la trayectoria de un proyec- 
til viene designada por una parábola. 
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Horizontal 


Vertical 


Figura 5 


La perpendicular desde el foco a la di- 
rectriz se llama eje de la parábola y los llama- 
remos e. 

El punto V de intersección de la curva 
con el eje se llama vértice. La distancia FD 
desde el foco a la directriz se llama paráme- 
tro de la parábola y se designa por P. 

La parábola puede estar orientada en el 
eje OX o en el eje OY; por eso comúnmente 
se dice que la parábola está en posición ver- 
tical u horizontal. 

Si la parábola está en el eje de absci- 
sas, la ecuación es: 


Y*=2-p-:(X-a) 


en donde a es la coordenada X del vértice y 
pes la distancia del foco a la recta directriz. 

Si la parábola está en el eje de ordena- 
das, la ecuación es; 


X?=2-p-*(Y -b) 


en donde b es la coordenada Y del vértice y 
p es la distancia del foco a la recta directriz. 


530 
540 
550 
560 
570 
ó00 
$10 
$20 
$30 
$40 
$350 
óS60 
$70 
$30 
$90 
700 
710 
720 
730 
740 
250 
760 
770 
780 
790 
300 
310 
820 
530 
840 
350 
100 
101 
102 
103 
109 


REM AXEXEXALINIR 
REM xx CONICAS xx 
REM AXAKERAALERIR 


SCREEN 2 

PI=3.141592 

CLs 

LOCATE 2,25:PRINT "-==----- CONICAS =------ ' 
LOCATE 6,34:PRINT "1.- ELIPSE" 


LOCATE 11,39:PRINT "2.- HIPERBOLA" 

LOCATE 14,34:PRINT "3.- PARABOLA" 

LOCATE 22,10: INPUT “OPCION ELEGIDA *";0 

IF 0<>1 AND 0<>2 AND 0<>3 THEN GOTO 40 

ON O GOTO 200,400,400 

REM AAA ARRE 

REM x*% DIBUJO DE ELIPSE *x 

REM ERA AAA AAA RR RAR 

CLS 

GOSUuB 2030 

LOCATE S,S: INPUT "EJE MAYOR DE LA ELIPSE (DE 0 A 100) "¡A 
IF A<X0 OR A>100 THEN GOTO 220 

LOCATE 10,5: INPUT "EJE MENOR DE LA ELIPSE <DE 0 A 90) "¡B 
IF B<0 OR B>90 THEN GOTO 240 

cLs 

GOSUB 1000 

GOSUB 2030 

FOR 1=0 TO 2*P1 STEP PI/180 

PSET (5/PXAXCOSCI),BXSINCI)) 

NEXT 1 

GOTO 2000 

REM. AAA AAA AAA 

REM x** DIBUJO DE HIPERBOLA xx 

REM HAHAHA ARA RRA 

CLs 

GOSUB 2050 

LOCATE 5,5: INPUT "EJE MAYOR DE LA HIPERBOLA (DE 0 A 100) "¿A 
IF AXO OR A>100 THEN GOTO 420 


LOCATE 10,5: INPUT "EJE MENOR DE LA HIPERBOLA (DE D A 90) ";B 
IF. B<0 OR 8>90 THEN GOTO 440 

CLs 

G0suB 2050 

GO0SUB 1000 


FOR Y=-90 TO 90 

LET X=SQOR(CA* 2X((Y*2/(B"2+1)) 

PSET (-S5xX/9,Y) 

PSET (5*X/9,Y> 

NEXT Y 

GOTO 2000 

REM AXEL ELLE ARAN 

REM ** DIBUJO DE PARÁBOLA *x 

REM AXHARERAR AAA RR 

cLs 

GOSUB 2070 

LOCATE 5,5: INPUT “FOCO DE LA PARABOLA ";P 

IF P<O TH GOTO 420 ) 

LOCATE 8,5: INPUT "PARABOLA EN EL EJE HORIZONTAL O EN EL VERTICAL <H/V)>*"]Ps 
LOCATE 11,5: INPUT "SIGNO DEL TERMINO CUADRATICO ";S$ 
IF S$(>"+" AND S$<>"-" THEN GOTO 650 

IF P$ ="H" OR P$="h" THEN GOTO 700 

IF PS ="U* OR P$="4" THEN GOTO 780 

GOTO 400 


LOCATE 14,5: INPUT "COORDENADA HORIZONTAL DEL VERTICE <DE -100 A 100>)*j¡V 
CLS:60SUB 2070:G0SUB 1000 


FOR Y=-90 TO 20 

LET Xi=(Y*2)/C2*P>:1F St="+*" THEN LET X=X1+U:GOTO 750 
LET_ X=-X1+U 

PSET. (5XX/9, Y) 

NEXT Y 

GOTO 2000 

LOCATE 14,5: INPUT “COORDENADA VERTICAL DEL VERTICE <DE -90 A 90)>)*"3U 
CLS:G0OSUB 2070:G0SUB 1000 

FOR X=-100 TO 100 

LET Yi=(X"2)/(C2x*P)>:1F S$="+" THEN LET Y=Y1+V:GOTO 830 
LET Y=-Y1+V 

PSET C5*X/9,Y)> 

NEXT X 

GOTO 000 

DO REM AXARARARAA AREA RRA RAR RR 
0 REM ** DIBUJO EJES CODRDENADOS *x 

DO REM AREXEXEREEA EEN EEE LR 

O WINDOW (-100,-100>-(100,100> 

0 LINE (-70,0)-=(70,0> 
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APRENDER CON EL ORDENADOR 


El programa funciona en base a unos 
datos que son introducidos mediante un IN- 
PUT y que son los parámetros necesarios para 
trabajar con las rutinas de dibujo de las figu- 
ras en cada caso, Tanto al pedir los datos como 
al dibujar las curvas el programa llama a una 
subrutina que escribe el nombre de la figura 
que se esté tratando. En los dibujos hay que te- 
ner en cuenta los intervalos en los que deben 
introducirse los datos para que éstos quepan 
bien en los ejes y no salgan de la «ventana» ini- 
cialmente establecida. 

El programa es válido para IBM PC y 
compatibles. En los demás ordenadores hay 
que adecuar el origen de coordenadas al cen- 
tro de la pantalla. También es necesario simu- 


- lar con las sentencias gráficas correspondien- 


tes a la subrutina de dibujo de los ejes coor- 
denados (líneas 1000 a 1060). 

El resto de modificaciones son las si- 
guientes: 


Modificaciones para otros equipos 
SPECTRUM 


Eliminar líneas 40 y 50, 

Sustituir LOCATE X,Y:PRINT... por 
PRINT AT X,Y;... 

130 GOTO 200 * 0 

300 PLOT (A * COS (D, A * SIN (D) 

510 PLOT (-X,Y) 

520 PLOT (X, Y) 

750 PLOT (X, Y) 

830 PLOT (X, YM) 


Adecuar el origen de coordenadas en 
el centro de la pantalla con PLOT. 


COMMODORE 
Eliminar líneas 40 y 50. 


Mi AA Sa MO 1 UP 0 A 
LOL 1 (00 PR 0 5 5 50: 0 190 50 0 3) E PA E UR 2 PD 
1 ME W 
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Cambiar CLS por PRINT CHR$(147) en 
líneas 60, 200, 260, 400, 460, 600, 710, 790 y 9050. 

Simular la sentencia LOCATE y las de- 
más sentencias gráficas con la subrutina de 
gráficos del tomo 1. 


AMSTRAD 


40 MODE 1 
Eliminar línea 50. 
Cambiar LOCATE X, Y por LOCATE Y X 
300 PLOT (A * COS (D, B* SIN MD) 
510 PLOT (-X,Y) 
520 PLOT (X,Y) 
750 PLOT (X,Y) 
830 PLOT (X,Y) 


MSX 


Las mismas modificaciones que AMS- 
TRAD salvo: 


40 SCREEN 1 


SOCIEDAD 
El mundo griego 


La civilización griega es considerada 
como una de las más importantes de la Histo- 
ria y a su vez como una de las que más ha in- 
fluido en civilizaciones posteriores. 

Y es así considerada por diversos facto- 
res: 

— La avanzada cultura que para la épo- 
ca tenía este pueblo, en contraste con los de- 
más pueblos contemporáneos e incluso poste- 
riores a él. 

— El interés intelectual y científico de 
todos sus habitantes y en todos los dominios; 
recordemos que es en Grecia donde nace la 
Filosofía y es además cuna de grandes auto- 


res de fama mundial. También es en Grecia 
donde se escriben por primera vez géneros li- 
terarios como son el teatro y la comedia. 

— La organización política tanto a nivel 
de estado como en las ciudades. Es en la épo- 
ca de esplendor del mundo griego cuando 
nace la democracia y es, también, en este pue- 
blo donde se da por primera vez la organiza- 
ción de las ciudades en polis. 

— La influencia sobre pueblos posterio- 
res y sobre todo y como ejemplo más inme- 
diato, sobre el Imperio Romano, que debido a 
su posterior expansión por todo el Mediterrá- 
neo llevaría estos caracteres muy lejos de sus 
originarias fronteras. 

Prueba de todo ello son las influencias 
arquitectónicas de todas las ciudades poste- 
riormente colonizadas y que llevan en sus edi- 
ficios características del modelo griego. 


10 REM erre eerrrrrkrrrreris 
20 REM ** EL MUNDO GRIEGO ** 
30 REM AXAARALAAEIRÍ ERA 


Y ya no sólo en el campo de la arqui- 
tectura, sino de todo el arte en general, es de- 
cir, incluyendo las ramas de la arquitectura y 
la decoración. 


En el período de máximo esplendor, 
cuando se consigue la perfecta representa- 
ción de la figura humana, que es a lo que se 
dedica la mayor parte de su escultura. Es así 
como los escultores griegos conseguirán que 
el equilibrio, la serenidad y la proporción sean 
perfectas. 


Todo esto responde a una mentalidad 
humanista y antropológica que era propia del 
hombre griego; que incluso es plasmada en la 
religión. Es una religión politeísta en la que to- 
das las divinidades son representadas con fi- 
gura humana y se establecen entre ellas rela- 
ciones familiares. 


AD REM rr RARA REI 


50 REM ** LECTURA DE PREGUNTAS Y RESPUESTAS x*x* 
GD REM ARLLRAAEAE NACEN ARI E RARE 


70 DIM P$(28):DIM FEL23) 

30 FOR 1=1 Tu 

50 READ P$c 1) 

100 NEXT 1 

110 FOR 1=1 TO 28 

120 READ R*cI> 

130 NEXT 1 

190 REM ARELLAREAEEL 
150 REM *x INSTRUCCIONES *x 
160 REM AAARASAREHAAARERERA 
170 CELS 

130 GOSUB 1000 

200 PRINT:PRINT 

210 PRINT * 

220 PRIMT+PRINT 

230 PRINT " 

TAS ” 

290 PRINT " 

Ru 

2530 PRINT " 

MPUESTO" 

260 PRINT ” 

270 PRINT<PRINT:PRINT 


2380 PRINT ” TILA 


300 PRINT:PRINT:¿PRINT 
SI PRINT" 


TIN STRÚUCCTIONES xn 
A CONTINUACION TENDRÁS QUE RESPONDER A UNA SERIE DE PREGUN 
ACERCA DEL MUNDO CLASICO GRIEGO. EN ELLAS DEBERAS CONTESTA 
CON UN NOMBRE CONCRETO QUE, EN ALGUNOS CASOS, PUEDE SER CO 
PERO EN TODO CASO DEBERAS PRESCINDIR DEL ARTICULO." 


SUERTES! A 


- PULSA UNA TECLA -PARÁ COMENZAR —" 


320 LET S$=INKEY*:1F S$="" THEN GOTO 320 


330 CLS 

340 RANDOMIZE TIMER 

350 GOSUB 1000 

355 LET ASINTORND*28)+1 

360 LOCATE 10,2:PRINT P+(4) 
370 LOCATE 13,30: INPUT Z+ 


380 1F 26=R$(A4) THEN LOCATE 18,30:PRINT "ES CIERTO... .":LET Y=4+1:G0TO 400 
390 LOCÁTE 18,15:PRINT "TE EQUIVOCAS, LA RESPUESTA ES .., "¿R$(A):LET F=F+1 


400-LET. C=C+1 


405 LOCATE 22,1:PRINT "=—========-=====- 


A A A A o aia 


910 LOCATE 23,S:PRINT " C-CONTINUAR" :LOCATE 23,65:PRINT. *F-FINAL” 


420 LET W$=INKEYS:1F W$="" THEN GOTO 420 


930 IF-Wé$="0E" OR l$="c" THEN GOTO 330 
490 IF Wé="F" OR W$="4" THEN GOTO 300 
4950 GOTO 420 


APRENDER CON EL ORDENADOR 


300 CLS:GOSUB 1000 


810 LOCÁTE 12,10:PRINT "EL PORCENTAJE DE RESPUESTAS ACERTADAS ES:" 


320 LOCATE 
330 END 
1000 PRINT * 


1010 PRINT * 
1020 PRINT " 


1030 RETURN 


3100*V/C;"%" 


18,10:PRINT "EL PORCENTAJE DE RESPUESTAS FALSAS ES:"100x*F/C;"x4" 


A E A e e o e a a a ld e e dl o o pp o a e 


5000 DATÁ "CUAL ES LA CIUDAD MAS PROSPERA DE GRECIA EN SU PERIODO CLASICO ","CUA 


LES SON LAS GUERRAS QUE LOS GRIEGOS LIBRARON CON LOS PERSAS A COMIENZOS 


SIGLO V a, DEC, " 


DEL 


5010 DATA "QUE GUERRAS SE PRODUCEN FRUTO DE LA RIVALIDAD ENTRE ESPARTA Y ATENAS 


","LOS MACEDONIOS UNIFICARON EL MUNDO GRIEGO BAJO LA DIRECCION DE * 
FILIPO CONQUISTO EL REINO PERSA; COMO 


5020 DATA "A MEDIADOS DE 


HABITABA " 


SE LLAMA 

QUE SIGLO SE PRODUJO LÁ CONQUISTA ROMANA DEL MUNDO GRIE 
60 ","QUE PUEBLO ES EL PRIMERO QUE INVADIO 
DE LOS AQUEOS QUE DTRO PUEBLO INVADE GRE 


1" EL HIJO DE 


GRECIA EN SU EPOCA ARCAICA ","DESPUES 


CIA ","EN LA REGION DE ATICA QUE PUEBLO 


5030 DATA "QUE POETA GRIEGO RELATO LA EPOCA DE LA INVASION DORICA "," COMO SE LL 
AMABAN LAS CIUDADES SEGUN LA POLITICA GRIEGA ", "LAS PRINCIPALES CREACIONES ARTIS 
TICO-LITERARIAS SON LA LÍRICA Y ",“QUE RAMÁ DEL SABER NACE EN GRECIA * 

5040 DATA "EN LA VIDA GRIEGA LAS SUPERSTICIONES Y LA MAGIA SON SUSTITUIDAS POR " 
+"LÁ FORMA DE GOBIERNO TIPICA DE LA GRECIA CLASICA ES “,*EL ORGANO PRINCIPAL DE 
LA DEMOCRACIA ERA LA ASAMBLEAS DEL PUEBLO O * 


3050 DATA "LA JUSTICIA EN EL PERIODO D 


PULAR 


EMOCRÁTICO ERA EJERCIDA POR UN TRIBUNAL PO. 
LLAMADO ","EN ATENAS LA FORMA DE GOBIERNO ERÁ LA DEMOCRACIA PERO EN E 


SPARTA ERA LA ","LA CARACTERISTICA PRINCIPAL DE LA RELIGION GRIEGA ERA EL" 


3040 DATÁ "CUAL ES EL DIOS GRIEGO QUE ESTABA 


A LA CABEZA DE TODOSLOS DEMAS ","AD 


EMAS DE LOS TEMPLOS HAY OTRO LUGAR DE ENCUENTRO DE LOS GRIEGOS Y ES EL ”","LOS GR 


ANDES MAESTROS DE LA TRAGEDIA GRIEGA FUERON 


ESQUILO SOFOCLES Y * 


5070 DATA "EL MAYOR REPRESENTANTE DE LA COMEDIA FUE ", “LA ETAPÁ MAS ANTIGUA DEL 
ARTE GRIEGO ES "," LAS TRES PRINCIPALES CARACTERISTICAS DE LA ESCULTURA SON EQUI 


LIBRIO, ARMON 
oy* 


[A Y," LOS TRES ORDENES ARQUITECTONICOS GRIEGOS SON DORICO, JONIC 


5080 DATÁ "EL PARTENON Y LOS PROPILEOS SON REPRESENTANTES DEL ORDEN ","EL ERECTE 


LON Y ATENEA NIKE SON TEMPLOS DE 


ORDEN * 
5090 DATA "ATENAS", "MEDICAS" , "PELOPONESO" "FILIPO" 


, "ALEJANDRO" “SIGLO 11 ANTES D 


E CRISTO", "AQUEDS", "DORIOS" ,"JONIOS", "HOMERO" y "POLIS", "TEATRO" "FILOSOFIA" ,“RAZO 


NY, "DEMOCRACIA", "ECLESIA","HELIEO" 


"ARISTOCRACIA" 
$000 DATA "POLITEISMO", "ZEUS", "ORÁCULO DE DELFOS" ¿"EURIPIDES" 


y "ARISTOFANES","ARC 


AICA", "PROPORCTON" ,"CORINTIO", “DORICO" y" JONICO" 


El programa trabaja referido a dos 
grandes bases de datos en las que se encuen- 
tran las preguntas y sus correspondientes res- 
puestas. En la pantalla aparecen inicialmente 
las instrucciones a seguir, ya que las pregun- 
tas deben contestarse con una sola palabra; 
después irán apareciendo una por una las pre- 
guntas, centradas en la pantalla, y en la parte 
inferior de ésta las dos opciones para salir del 
programa o continuar; si se opta por abando- 
nar el programa, la pantalla nos muestra el 
tanto por ciento de preguntas acertadas y el 
tanto por ciento de las falladas. 


Modificaciones para otros equipos 


El programa es válido para la mayoría 
de los ordenadores, con las siguientes modifi- 
caciones: 


SPECTRUM 
70 DIM P$ (28, 105): DIM R$ (28, 24) 
340 RANDOMIZE 0 
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Sustituir LOCATE X,Y:PRINT 
PRINT AT X, Y... 
830 GOTO 99 


por 


AMSTRAD 


Sustituir LOCATE X, Y por LOCATE Y,X 
340 RANDOMIZE TIME: 


MSX 


Sustituir LOCATE X,Y por LOCATE Y,X 
Eliminar línea 340 
355'LET A = INT (RND (1) * 28) + 1 


COMMODORE 


Simular la sentencia LOCATE con la sub- 
rutina gráfica del tomo 1. 

Sustituir CLS por PRINT CHR$(147) en 
líneas 170, 330 y 800. 

Eliminar línea 340. 

3558 LET A = INT (RND (1) * 28) + 1 


A A A AS A 


PARA LOS MAS JOVENES 


2 Análisis verbal 


Uno de los elementos más importantes 
del lenguaje, sea del idioma que sea, son los 
verbos. 

Pero vamos a centrarnos en el tema y a 
hablar de nuestra lengua. El español es uno de 
los idiomas romances que existen al sur de Eu- 
ropa, estos idiomas son el francés, el italiano, 
el portugués, etc. Pues bien, todos ellos se ca- 
racterizan, entre otras cosas, por su sistema 
verbal característico, que es muy complicado. 


Entre las características de este siste- 


ma destacan: sus tres conjugaciones, diferen- 
tes modos, numerosos tiempos, aspectos y 
personas. 

Recordemos que en un fascículo pasa- 
do de esta misma colección presentábamos un 
programa que trataba también el tema de la 


conjugación regular de los verbos españoles. 
Pues bien, ahora vamos a pasar del plano teó- 
rico y a situarnos en un nivel teórico. 

En este programa vamos a tratar un 
tema tan importante, en el plano verbal como 
es el aspecto temporal. El tiempo en los ver- 
bos viene determinado en el lenguaje por un 
morfema que se coloca inmediatamente des- 
pués de la raíz verbal de los verbos regulares, 
e inmediatamente antes de los morfemas de 
número y persona. Según los tiempos, cada 
conjugación tiene unas terminaciones propias 
para cada tiempo y persona; por eso casi po- 
demos decir de qué tiempo verbal se trata 
sólo con ver la terminación de una persona. 

Veamos ahora un ejemplo práctico: 


CANT - ABA - MOS 


CANT: raíz del verbo cantar. 

ABA: morfema del pretérito imperfecto 
del modo indicativo. 

MOS: morfema de la primera persona 
del plural. 


' 
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— 
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El programa funciona de la siguiente 
manera: en la pantalla aparecerá una oración 
en la que se muestra entre paréntesis el ver- 
bo que debes colocar; pero el verbo está en in- 
finitivo. Debajo, aparecen tres opciones, de las 
cuales sólo una es correcta, tienes que marcar 
el número de la opción que eliges, y el orde- 
nador te indicará si es o no es esa la respues- 
ta correcta. 

Para aquellos que deseen conocer la es- 
tructura del programa, diremos que éste cons- 
ta de 25 frases almacenadas en una matriz al- 
fanumérica, de la que aleatoriamente se esco- 
gen cinco. La matriz C sirve para que no haya 
repeticiones en estas cinco frases, En otra ma- 
triz se almacenan las posibles respuestas y, en 
una última matriz, el número de las respues- 
tas correctas. El programa comprueba si el nú- 
mero de tu respuesta coincide con la correcta 
o no, indicándolo con su mensaje. 


A U ni e P 
E AA A STR 
DAT e NA > 4 


ACT] 


DA HA al _ 
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g 
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Modificaciones para otros equipos 


SPECTRUM 
Sustituir LOCATE X,Y:PRINT ... por 
PRINT AT X,Y;... 
40 DIM P$ (25,53):DIM R$(25,3,16):DIM 
C(25): DIM D(5):DIM P$(5,25) 
400 RANDOMIZE O0:LET X =0 
497 FOR K = 1 TO 500:NEXT K:CLS 
540 IF X$ ="S” OR X$ = "s" THEN GOTO 
99 

COMMODORE 
Sustituir CLS por PRINT CHR$(147) en 
líneas 390 y 497. 
Simular sentencia LOCATE con la ruti- 
na de gráficos del tomo 1 de esta obra. 
400 LETX =0 

AMSTRAD Y MSX 
Sustituir LOCATE X, Y por LOCATE Y,X 
400 RANDOMIZE TIME:LET X = 0. 


PEQUEÑA HISTORIA DE LA INFORMATICA 100000 


Mi La tercera generación de ordenadores 


; Á segunda generación de 
y Ordenadores seguía su cur- 
4 SO, a veces (casi siempre) 
o. YTápido, otras más pausado, 
- asegurando, mejorando, los 
. rápidos avances tecnológi- 
Cos que se iban producien- 

P do. Pero en la mente del 
hombre siempre seguirá viva la llama de la 
búsqueda de lo nuevo, lo que queda por des- 
cubrir, por experimentar. Y así, mientras mu- 
chos laboratorios de desarrollo persistían en 
seguir la misma línea de investigación que ha- 
bían comenzado pocos años antes, en otros, 
como en el de la Texas Instruments, se esta- 
ban acelerando los acontecimientos. El transis- 
tor había sido un gran descubrimiento. Había 
abaratado mucho los ordenadores y los había 
hecho más fiables ¡y más pequeños!, pero ha- 
bía que continuar. Esta idea de «a más peque- 
ño más fiable» podía llegar bastante lejos ¡y ya 
lo creo que llegó! Jack Kilby, responsable de 
investigación de Texas Instruments, presentó 
una pequeña plaqueta en la que estaban inte- 
grados multitud de circuitos transistorizados. 
¡Había nacido el circuito integrado! 


Estamos en los años sesenta. En nues- 
tros días, de esas pequeñas microplaquetas se 
dice que estaban fabricadas con una tecnolo- 
gía de integración a pequeña escala. Natural- 
mente, en 1960, el paso de los circuitos tran- 
sistorizados a microplaquetas supuso un salto 
de gigante (como para servir de punto de par- 
tida para una nueva generación de ordenado- 
res). Sin embargo, nadie podía prever que en 
diez años se pasaría de unos cien componen- 
tes integrados a unos diez mil por plaqueta o 
chip, y en quince años se superaría fácilmen- 
te esta cota, y se continuaría mejorando en 
progresión geométrica. La quinta generación 
de ordenadores tiene como uno de sus objeti- 
vos importantes impulsar las cotas de integra- 
ción en todo lo posible. Y se puede llegar a ni- 
veles inimaginables. No olvidemos que, a par- 
tir de cierto grado de integración, estos cir- 
cuitos lógicos pueden llegar a ser verdaderos 
ordenadores, muy potentes, y con una memo- 
ria de un tamaño más que aceptable (y desde 
luego muy superior a la del ordenador más po- 
tente de la primera generación). 

En las dos tablas que ofrecemos el lec- 
tor puede apreciar cómo los fabricantes se 
iban acercando al límite de las posibilidades 
de la miniaturización. Pero este límite no exis- 
te, es una falacia. Al menos, por el momento, 
no ha sido alcanzado. 


CIRCUITOS INTEGRADOS 


100 componentes 


Integración a 
pequeña escala (SSI) | 


de 100 a 1.000 
componentes 
de 1.000 a 10,000 
componentes 
más de 10.000 
componentes 
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Integración a 
media escala (MSI) 


Integración a 
gran escala (LSI) 
Integración a muy 
gran escala (VLSI) 


PEQUEÑA HISTORIA DE LA INFORMATICA ¡A 


Otra característica típica de la tercera 
generación de ordenadores es la compatibili- 
dad de unas máquinas con otras. Pero no nos 
equivoquemos, se trata de que las nuevas má- 
quinas superen los problemas de compatibili- 
dad existentes en los ordenadores de la se- 
gunda generación; no quiere decir eso, sin 
embargo, que al mismo tiempo no se produz- 
can unos problemas de compatibilidad muy 
fuertes con las máquinas de la segunda gene- 
ración. El salto de unas a otras era casi insal- 
vable. Los usuarios se fueron dando cuenta 
muy poco a poco (el bolsillo crea mucha iner- 
cia) que los ordenadores de ésta que ahora lla- 
mamos segunda generación se iban quedan- 
do atrás, obsoletos. Sin embargo, los nuevos 
ordenadores de la tercera generación eran 
compatibles con sus «hermanos mayores», 
siempre dentro de la misma casa fabricante. 
Gran cambio, que suponía un abaratamiento 
gnorme de toda la programación y documen- 
tación. Con estas nuevas premisas, el usuario 
pasaba a ser cliente de una determinada casa, 
y de ella no salía prácticamente ¡hasta la si- 
guiente generación de ordenadores!, es decir, 
comenzaba comprando un ordenador de la 
gama (el menor que cubriera sus necesida- 
des), para ir pasando a otros ordenadores más 
potentes, con mayores prestaciones, pero 
siempre dentro de la misma casa fabricante. 

Otra característica típica de esta gene- 
ración de ordenadores es la multiprograma- 
ción. Los ordenadores habían llegado a alcan- 
zar cotas de velocidad muy altas, que les per- 
mitían ejecutar varios programas «a la vez». 
Por ejemplo, un mismo usuario podía estar 
comprobando un programa al mismo tiempo 
que imprimía la nómina del personal, etc. 

Los discos magnéticos sufrieron tam- 
bién grandes cambios, ya que disponer de efi- 
cacísimos procesadores centrales, sin memo- 
rias adecuadas, hubiera sido bastante absur- 
do. El acceso aleatorio también supuso una 
ventaja enorme. Imagínese el lector el retraso 
que implicaba ir accediendo secuencialmen- 
te a aquella parte del fichero que se deseaba 
utilizar. Gracias a estas innovaciones, hacia 
1966-1967 se comenzaron a utilizar los ordena- 
dores en comunicaciones. 

Muchos se preguntan el por qué ese 
afán de reducir. Es evidente que la reducción 
de consumos elimina multitud de problemas. 
Los ordenadores de válvulas no tienen desde 
luego la fiabilidad de los de transistores, pero 
por qué ese afán de reducir aún más los com- 
ponentes, de integrarlos dentro de un único 
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1975 


1964 


Circuito Integrado 


Transistor 
1946 


Válvula Electrónica 


¿Sabía usted que... 


Gene Amdahl, principal responsable del lan- 
zamiento de la serie 360 de IBM, no disponía de for- 
tuna personal en absoluto cuando se decidió a crear 
su propia compañía? 

La idea de Gene Amdahl tenía que triunfar y 
triunfó. En 1975 crea su primer ordenador compati- 
ble IBM (sólo la unidad central), y tres años más tar- 
de la cifra de negocio de la compañía alcanza los 320 
millones de dólares. Esta cifra la coloca en el puesto 
decimotercero del ranking de empresas de informá- 
tica americanas, ¡Y sólo en tres años! 

La empresa siguió creciendo basada en la idea 
de Amadahl, no muy original, pero que hasta entonces 
nadie había utilizado: se trataba de construir un or- 
denador más potente que el que se pretendía emular 
en IBM, por supuesto, compatible con él, pero mucho 
más barato. Para ello, era necesario calcular cuida- 
dosamente los márgenes comerciales para que el 
producto resultara interesante, pero al mismo tiempo 
para no ser aplastado por operaciones de bajada sal- 
vaje de precios, por parte de IBM. 

Gene Amdahl y su pequeño equipo estudiaron 
cuidadosamente las estrategias de IBM para sus dis- 
tintas gamas de productos, seleccionaron sólo aque- 
llos que eran rentables a corto plazo y decidieron su 
propia estrategia, la que debían seguir para alcanzar 
el éxito, Sin embargo, les faltaba algo primordial: la 
financiación. 

Para lograrla, Amdahl tiene mucho valor y al- 
gunas cartas en la manga: a) Conoce el mercado y el 
medio en el que se mueve; b) Tiene contactos con 
clientes potenciales (empresas privadas, universida- 
des, organismos estatales, etc.); c) El proyecto, des- 
de el punto de vista técnico y económico, es coheren- 
te, y d) También tiene relaciones entre los fabrican- 
tes de componentes, industria del silicio, etc.). 

Muchos banqueros no confiaron en Gene Am- 
dahl. Todos pensaban que IBM era demasiado pode- 
rosa y nadie compraría Amdahl frente a IBM, aunque 
el producto fuera más potente, y desde luego, más 
barato. Pero, por fin, Amdahl encuentra un banquero 
de Chicago que le financia una pequeña cantidad (el 
5 por 100 de lo que necesita, pero puede comenzar á 
trabajar). Y Amdahl arranca. Pocos meses más tarde, 
una de sus relaciones le da resultado. Fujitsu se inte- 
resa por su empresa y le ofrece financiarla con cinco 
millones de dólares, La historia de Amdahl no termi- 
na con esta primera empresa fundada por él; no está 
a gusto, y no dispone de demasiada libertad para di- 
rigirla (el capital controlaba la mayor parte de las ac- 
ciones). Decidido a seguir en su camino de empresa- 
rio, vende su parte para fundar otra empresa, natu- 
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ralmente, después de haber aprendido cómo y dón- 
de obtener el capital necesario para su financiación. 

La reacción de IBM no tarda mucho en produ- 
cirse, Lo primero que interesa es cambiar algunas ca- 
racterísticas de sus máquinas para intentar evitar la 
compatibilidad. Pero con ello no consiguió demasia- 
das ventajas. En segundo lugar, se decide a bajar los 
precios e incluso saca otra nueva línea de productos 
a precios mucho más moderados (4300). Aunque las 
ventas de Amdahl dejaron de crecer en progresión 
geométrica, como lo habían hecho los primeros cua- 
tro o cinco años, eso no indica en absoluto que su em- 
presa no tuviera éxito, y se hubiera consolidado en 
el mercado de ordenadores. A partir de Amdahl hárr 
ido apareciendo en el mercado multitud de ordena- 
dores compatibles IBM, desde grandes máquinas 
(Olivetti fue una de las primeras en vender compati- 
bles) hasta pequeños PC, fabricados en Corea. 


elemento? Existen múltiples razones. Una de 
ellas es simplificar las reparaciones de ave- 
rías. Es sabido que los sueldos del personal de 
las grandes compañías son siempre altos, 
mientras que los materiales de que están for- 
mados los circuitos no son tan caros. Si al de- 
tectarse un problema en un determinado mó- 
dulo se cambia la tarjeta de circuito impreso 
completa, la compañía se está ahorrando en 
sueldos, pero además está ganando en segu- 
ridad. Si se hubiera sustituido un elemento del 
circuito, siempre cabría la posibilidad de que 
el causante de la avería, que aparentemente 
no está estropeado, siguiera causando proble- 
mas, lo que desde luego podría ocurrir cam- 
biando la tarjeta completa, aunque las posibi- 
lidades se reducen muchísimo. Y además, el 
cambio de tarjeta es una operación sencillísi- 
ma, y con pocos riesgos de malas soldaduras, 
etc, Con todo ello, la compañía fabricante está 
dando un mejor servicio al cliente, al que, ge- 
neralmente, le importa más que le resuelvan 
el problema, aunque le cueste algo más de di- 
nero. 

Ahondando algo más, es muy probable 
que el programa espacial americano tenga 
algo que ver en este afán de integración, dis- 
minuyendo en lo posible el tamaño de los com- 
ponentes del ordenador, El dinero que el go- 
bierno neteamericano destinaba a este pro- 
grama servía de impulso a muchos laborato- 
rios de desarrollo de pequeñas y grandes em- 
presas. Es claro que los ordenadores que se 
pensaban instalar en las naves espaciales de- 
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bían ser lo más ligeros posibles, pero sin re- 
nunciar a la potencia. 

No podemos hablar de la tercera gene- 
ración de ordenadores sin referirnos a la se- 
rie 360 de IBM. Esta serie fue la primera que 
utilizó circuitos integrados. Apareció en el 
mercado en abril de 1964, en sustitución de la 
serie 7000, La serie se llamó 360, por las gran- 
des esperanzas que habían puesto en ella sus 
creadores. lba a ser una serig que «todo lo 
abarcaría», sería capaz de responder a todas 
las necesidades del mercado, tanto en el ám- 
bito científico como en el empresarial, con 
usuarios modestos y usuarios poderosos. La 
realidad naturalmente no era tan bonita. Siem- 
pre quedaban funciones por cubrir, pero la se- 
rie 360-fue todo un éxito comereial, revolucio- 
nó el mercado de ordenadores e inició una 
carrera de gran velocidad para mejorar las 
prestaciones, en la que participaron todas las 
grandes compañías del momento. 

La serie 360 marca un hito en la historia 
de los ordenadores. A partir de ese momento 
el ordenador pasa a ser algo mucho más co- 
mún en laboratorios de universidades (de 
cualquier disciplina), que hasta entonces no 
habían dispuesto de presupuesto para acce- 
der a la compra de un ordenador. También en 
el mundo empresarial las pequeñas empresas 
comienzan a gastar en ordenadores, hasta en- 
tonces accesibles sólo a los poderosos. En 1963 
en Estados Unidos existían unas-16.000 instala- 
ciones, con 9.000 peticiones en curso, frente al 
resto del mundo occidental, que sólo disponía 
de unas 4.000. Aunque esta cifra pueda hacer- 
nos ruborizar un poco, no debemos olvidar 
que, pasada la segunda guerra mundial, Euro- 
pa se dedicaba con fuerza a su reconstruc- 
ción, y-los Gobiernos no supieron ver el alcan- 
ce que tendría esta nueva industria, a la que 
habrían debido favorecer. 

Sin embargo, en los Estados Unidos este 
período es uno de los más fructíferos de la his- 
toria de la informática. Las compañías de or- 
denadores que existían en esas fechas se van 
consolidando en el mercado de ordenadores. 
Control Data saca al mercado la gama CDC 
6600, de gran potencia y velocidad de proce- 
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so (25 x 10% instrucciones por segundo). En el 
entorno europeo, se crean algunos consorcios 
como Bull, Bourroughs, Unidata (Siemens-Phi- 
lips) y otras. Algunas como Control Data, Fu- 
jitsu, CI, NCR, Nixdorf, Philips han ido cre- 
ciendo hasta fechas actuales. Otras, las menos, 
han desaparecido. 

Veamos sucintamente algunas de las 
características de la serie 360 de IBM, la pri- 
mera serie de ordenadores que utilizaron cir- 
cuitos integrados. Recuerde el lector que esta 
serie se llamaba 360 porque se había pensado 
para que llegara a todos los usuarios, cubrien- 
do todas las necesidades del mercado (los 360 
grados). 

Una de sus características que resulta- 
ron más útiles en el momento fue la memoria 
virtual, dispositivo de Software a través del 
que se podía acceder a la memoria de alma- 
cenamiento masivo de la máquina, casi con la 
misma facilidad que si fuera la memoria cen- 
tral del equipo. Es cierto que el tiempo de ac- 
ceso era superior, pero era un sistema relati- 
vamente cómodo de utilizar más memoria de 
la que disponía el equipo, resolviendo más de 
un problema de falta de memoria. 

Otras características de la serie 360 fue 
la organización de las memorias de una forma 
más práctica, utilizando un nuevo concepto, el 
del byte, o grupo de ocho bits como unidad 
de información básica. Hasta ese momento, las 
memorias estaban organizadas utilizando 
como unidad de medida palabras y bits. Este 
pequeño detalle de organización agilizó mu- 
cho el acceso a las memorias. Como unidad de 
orden superior al bit, se siguió utilizando la pa- 
labra, aunque éste tenía el número de bits que 
cada fabricante deseara asignarle. Por ejem- 
plo, IBM utilizaba palabras de 32 bits en la se- 
rie 360, Digital, en su serie PDP-11 les asigna 
16 bits, e Intel, sólo 8. Es importante saber el 
tamaño de la palabra, para no equivocar con- 
ceptos y saber realmente el tamaño de la me- 
moría de que se va a disponer. 

La velocidad de proceso de esta nueva 
serie 360 también aumentó considerablemen- 
te. Ya pueden medirse en nanosegundos 
(107), 
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El Reconocimiento de formas 


¡E AMOS a continuación a es- 
1 tudiar un problema que 
cada día interesa más en la 
» industria: el reconocimiento 
de formas. Hemos visto ya 
en otros artículos la impor- 
tancia de la creación de ro- 
bots capaces de «ver» al me- 
nos algunas de las características de un ob- 
jeto. 


Para empezar a abordar el problema, 
pensemos en el entorno donde va a colocarse 
el sistema. Es fundamental que éste sea lo más 
adecuado posible a la labor que va a realizar- 
se. Para ello, es necesario preparar las esce- 
nas u objetos que van a analizarse, intentando 
simplificar al máximo el problema. En primer 
lugar, la iluminación, que deberá estudiarse 
para que sea una aliada del sensor (la cámara 
que debe «ver» los objetos) y no una enemiga 
y, en segundo lugar, los propios objetos que 
componen la escena deberán presentarse de 
la forma más evidente posible, intentando que 
unos objetos no solapen a los vecinos, para ob- 
tener una escena lo menos compleja posible. 

Una vez simplificado al máximo el pro- 
blema, el sistema recibirá información visual 
del entorno, y pasará a realizar su tarea de se- 
lección y «trabajo» o manejo del objeto. La ta- 
rea puede simplificarse enormemente si los 
objetos no se encuentran tapados por otros ob- 
jetos, tal como hemos indicado, aunque exis- 
ten sistemas que superan estos problemas. 

El reconocimiento de caracteres va to- 
mando cada vez más importancia en nuestros 
días, ya que puede ser una buena herramien- 
ta para resolver el problema de la comunica- 
ción entre usuario y ordenador. Uno de los pri- 
meros pasos, que ayudaría mucho a simplifi- 
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car las tareas propias de oficina, sería la lec- 
tura de hojas escritas (pensemos, por ejemplo, 
en el análisis y la selección de la correspon- 
dencia por este sistema). 

Aunque por el momento el problema ha 
sido resuelto, es bien cierto que su solución 
sólo lo es a nivel de prototipo de laboratorio. 
Existen sistemas que «leen» documentos inclu- 
so escritos a mano. Veamos someramente en 
qué consisten. 

Una de las primeras tareas a abordar 
para simplificar el reconocimiento de caracte- 
res es el «corte» de las secuencias de carac- 
teres que forman las palabras e incluso las fra- 
ses. 

El paso siguiente consiste en el propio 
proceso de-reconocimiento, basándese princi- 
palmente en consideraciones estadísticas, 
para evaluar la fiabilidad de la lectura pro- 
puesta para cada carácter. En los casos en que 
sea necesario, la selección automática del ca- 
rácter más apropiado se basará también en el 
estilo en el que se ha escrito el texto. 

Esta característica es muy importante, 
ya que en muchos escritos ciertas palabras es- 
pecíficas se escriben en muy distintos estilos, 
dentro del mismo documento, con el fin, por 
ejemplo, de poner énfasis en ellas. 

Finalmente, después de concluir el pro- 
ceso es útil revisar la salida, desde el punto 
de vista del léxico, ya que el proceso utiliza 
para resolver el problema métodos en los que 
interviene la estadística. 

El sistema suele disponer de un dispo- 
sitivo de comprobación ortográfica, En algu- 
nas aplicaciones, el propio sistema selecciona 
dentro de un conjunto de alternativas la ade- 
cuada, pero, como antes hemos indicado, se 
trata de sistemas muy sofisticados y caros, y 
prácticamente sólo se encuentran en los labo- 
ratorios de investigación, 
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Volviendo al tema genérico del recono- 
cimiento de formas, esta tarea implica un con- 
junto de técnicas de análisis de imágenes di- 
gitales, para reconocer objetos complejos, ais- 
lados o parcialmente tapados por otros obje- 
tos. Para llevar a cabo el reconocimiento de 
objetos se utilizan fundamentalmente dos téc- 
nicas distintas, aunque ambas se basan en 
comparaciones de los objetos a reconocer con 
otros objetos patrón que se encuentran alma- 
cenados en un fichero catálogo especial. Este 
catálogo contiene los objetos en forma de pa- 
rámetros típicos, obtenidos situando los obje- 
tos en condiciones diversas (distintas posicio- 
nes, iluminación, etc.). Las imágenes digitali- 
zadas de los objetos con las que se trabaja sue- 
len ser de 256 x 256 pixels, con una resolución 
de 8 bits. 

Veamos ahora una de estas técnicas de 
reconocimiento de objetos, que se basa en una 
clasificación de sus subpartes. Como hemos 
indicado anteriormente, este método en pri- 
mer lugar divide el objeto en sus distintas sub- 
partes, para pasar a continuación a comparar- 
las con otras patrón, previamente almacena- 
das (a nivel de parámetros). Para ello: a) La 
imagen se «suaviza»; b) Se aplica un algoritmo 
de segmentación a la imagen del objeto; c) Se 
obtiene una descripción de las subpartes ob- 
tenidas (parámetros), y d) Estos se comparan 
con los patrones almacenados para ir recono- 
ciendo cada una de ellas y, finalmente, llegar 
al objeto completo. 

El primero de los pasos antes enuncia- 
dos, la «suavización» o limpieza de la imagen, 
es absolutamente imprescindible. Se trata de 
eliminar los «ruidos» que aparecen en ella y le 
quitan nitidez (definición). Es una forma de 
preparar la imagen para el paso siguiente, la 
segmentación. El filtro que se utiliza para esta 
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«homogenización» de la imagen es un opera- 
dor que trabaja con una matriz de 3x3 que 
sustituye el valor de cada pixel por la media 
de los valores de los pixels contiguos y del 
propio pixel, tomando siempre sólo aquellos 
pixels cuyo nivel de gris se diferencia del ni- 
vel de gris del pixel seleccionado en un valor 
que cae dentro de una gama previamente es- 
tablecida (véase en el glosario «Nivel de 
gris»). La finalidad de este filtro es simplificar 
la imagen, eliminando muchos niveles de gris, 
y de establecer previamente qué elementos 
de ella son los interesantes, frente a otros que 
sólo son de detalle y sin interés para el análi- 
sis de reconocimiento del objeto. 

El paso siguiente consiste en obtener 
las subpartes, considerando aquellas superfi- 
cies cuyos parámetros de brillo, etc., son pa- 
recidos. En este punto también es necesario 
establecer la gama de valores aceptados. Se 
pueden también tomar superficies mayores, 
ampliando la gama de valores que caen den- 
tro del umbral, a partir del cual se considera- 
rá que se trata de otra superficie distinta. 

A continuación se estudian ciertas rela- 
ciones de contigúidad para cada una de las 
distintas zonas, para pasar a compararlas con 
las subpartes almacenadas en memoria. En el 
caso de que alguna de estas subpartes no pue- 
da ser reconocida, el sistema la incluirá en una 
de las regiones contiguas que todavía no han 
sido clasificadas, tratando de obtener una sub- 
parte reconocible. El objeto no habrá sido re- 
conocido si antes no lo han sido una tras otra 
todas sus subpartes. 

Es importante decir que los parámetros 
que se utilizan en la comparación son invarian- 
tes respecto de las traslaciones, rotaciones y 
cambios de escala, Entre ellos indicaremos los 
parámetros de contraste (área/perímetro cua- 


drado), relación entre las distancias máxima y 
mínima desde el centroide al contorno de la 
región que se está analizando, los dos Hu in- 
variantes que son función del momento de 
inercia central normalizado, las áreas totales 
positivas y negativas incluidas en por el perfil 
centroidal (estas dos áreas están divididas por 
la raíz cuadrada del perímetro), el número de 
huecos y el número de relaciones de adyacen- 
cia. 

Los resultados obtenidos con esta técni- 
ca dependen mucho de los efectos de seg- 
mentacion. Por último, a mejor segmentación, 
más rápida y satisfactoria será la clasificación. 
Para que la segmentación realizada sea bue- 
na es necesario elegir con sumo cuidado los 
valores umbral de las dos operaciones, suavi- 
zación y segmentación. Sin embargo, una vez 
obtenida una buena división de imagen, gene- 
ralmente los valores umbral utilizados pueden 
ser válidos para las restantes imágenes que se 
vayan a analizar, siempre que las condiciones 
de iluminación se mantengan. (De la ilumina- 
ción se podría hablar capítulos enteros, ya que 
tiene una importancia capital: no hay que ol- 
vidar que si se estudia cuidadosamente una 
buena iluminación teniendo en cuenta los re- 
sultados que se desean, eliminando en lo po- 
sible sombras y efectos de reflexión, etc., se 
habrá avanzado mucho en el problema, redu- 
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ciendo operaciones y, en suma, simplificando 
y abaratando la tarea.) 


La siguiente operación consiste en cla- 
sificar las subpartes, que, hasta el momento, 
no sabemos si concuerdan con la realidad, 
para obtener, subpartes reales. Este proceso, 
que puede parecer el más complicado, es, en 
realidad, el más sencillo (y, por tanto, el más 
rápido). 


El trabajo total, reconocimiento de una 
forma, puede tomar unos segundos (depen- 
diendo, naturalmente, del grado de detalles 
que se deseen tener en cuenta). Existen mu- 
chos sistemas que utilizan esta técnica. En el 
Instituto de Investigación Electromagnética, 
dependiente de la Universidad de Florencia, 
han diseñado un prototipo de reconocimiento 
de formas muy rápido e interesante. 


El segundo método para abordar el pro- 
blema considera los objetos en dos dimensio- 
nes, con algunas de sus partes visibles, y otras 
solapadas por otros objetos. La forma de abor- 
dar el problema es bastante distinta de la an- 
terior, ya que se comienza por bordear el con- 
torno de los objetos, mediante segmentos de 
recta y arcos circulares de distintos diáme- 
tros. Una vez realizada la tarea, se pasará a re- 
conocer los distintos elementos, comparándo- 
los con otros objetos almacenados. Con ella, 
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basta con poder visualizar el 3 por 100 del ob- 
jeto y objetos que se van a conocer. 


Hasta el momento, el problema, aunque 
complicado, no parece especialmente lento en 
su resolución. Sin embargo, el paso siguiente, 
de comparación del objeto (mediante los pa- 
rámetros que definen sus características) con 
los objetos patrón almacenados, podría resul- 
tar lento y complicado. Para simplificar el tra- 
bajo se ordena el conjunto de parámetros de 
caracterización a comparar, y la comparación 
se realiza primero no con la totalidad de los 
parámetros de los objetos patrón, sino con un 
subconjunto específico. Veamos sucintamente 
las distintas tareas concretas de este procedi- 
miento. En primer lugar, se localizan los con- 
tornos, aplicando el algoritmo de Hueckel. Me- 
diante este algoritmo se puede también obte- 
ner mucha información sobre niveles de gris, 
que será de mucha utilidad en otras fases del 
proceso. El paso siguiente es el relleno de las 
distintas regiones formadas, y localización de 
posibles relaciones entre las distintas zonas. 
A continuación se obtienen los parámetros del 
polígono o polígonos trazados por sucesivas 
aproximaciones, y finalmente, se pasa a la 
comparación del objeto con los objetos patrón 
almacenados. 


El trazado del contorno externo, que 
puede rodear bien un único objeto o un con- 
junto de objetos, es tarea primordial. Su traza- 
do se realiza averiguando el gradiente de los 
niveles de gris (en otras palabras, más senci- 
llas, averiguando las discontinuidades impor- 
tantes entre niveles de gris). Este contorno se 
va aproximando mediante el trazado de seg- 
mentos rectos y arcos circulares, que se van 
ajustando al límite real, y, que se convertirán 
en'algunos de los parámetros que serán utili- 
zados en la posterior comparación con los ob- 
jetos patrón almacenados. 


La fase siguiente, de reconocimiento, 
consiste en comparar el objeto (su secuencia 
de parámetros) con cada una de las secuen- 
cias de parámetros de los objetos almacena- 
dos. Entre estos parámetros identificativos de 
un objeto cualquiera se incluyen la secuencia 
de segmentos poligonales y arcos, su longitud, 
el ángulo que forma el segmento con el eje ho- 
rizontal, por ejemplo, y algunos otros paráme- 
tros más, que no mencionaremos por no com- 
plicar innecesariamente el problema. 
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Respecto de los tiempos empleados en 
las distintas fases del proceso, naturalmente 
dependen muchísimo del ordenador que se 
vaya a utilizar. Es evidente que con un orde- 
nador potente y rápido, cada tarea se realiza- 
rá en menor tiempo y, por tanto, el resultado 
final (a igualdad de características para iden- 
tificar) se obtendrá en mucho menos tiempo 
que si se utilizara un PC o compatible, ponga- 
mos por caso. Pero no debemos olvidar que, 
aunque estos procesos han sido pensados en 
un laboratorio, su fin último es ser una herra- 
mienta importante en una aplicación práctica, 
es decir, ayudar a resolver algún problema 
concreto, Y en este punto aparece el proble- 
ma económico. Así pues, en cada caso parti- 
cular deberá estudiarse el problema, para lle- 
gar a valorar dos elementos principalmente: 
el grado de detalle necesario (número de pa- 
rámetros a utilizar en el proceso de confron- 
tación con los objetos patrón) y, después, va- 
lorar este punto, pasar a considerar el factor 
velocidad, o tiempo. Es claro que existen mu- 
chas aplicaciones en las que el tiempo es fac- 
tor fundamental, porque, después de llevado 
a cabo el reconocimiento, y como resultado de 
él, deberán seguirse otros trabajos (que pue- 
den ser de índole cualquiera). Por tanto, no es 
lo mismo disponer de algunos minutos para el 
reconocimiento de formas que intentar que la 
labor se realice casi en tiempo real. Natural- 
mente, de las consideraciones anteriores se 
derivará la elección del ordenador adecuado, 
para que se ajuste a realizar el trabajo con la 
precisión necesaria y en el tiempo pedido. No 
olvidemos que en la industria lo que prima es 
la eficacia, y no tiene sentido desaprovechar 
dinero y esfuerzo obteniendo algo que no es 
en absoluto imprescindible. Diremos, sin em- 
bargo, que para un ordenador IBM 4341-2 los 
tiempos son de menos de un segundo para la 
obtención del contorno, unos 20 segundos 
para el algoritmo de relleno de las distintas zo- 
nas establecidas, y un tiempo muy parecido al 
anterior (unos dieciocho segundos) para la 
fase de confrontación. Finalmente, indicare- 
mos que el procedimiento ha resultado ser 
bastante útil también en los casos en los que 
los objetos aparecían tapados por otros obje- 
tos, aunque, naturalmente, los tiempos depen- 
dían del grado de solapamiento de los objetos 
y también de las posiciones relativas de di- 
chos objetos. 


TERMINOLOGIA 


Coordenadas polares. Es un sistema de 
coordenadas muy usado y de suma utilidad, 
sobre todo cuando se está trabajando con 
movimientos rotacionales, ya que resulta 
más sencillo definir en esos casos los movi- 
mientos-en ángulos y distancias que utilizar, 
por ejemplo, las coordenadas cartesianas. 
En este sistema de coordenadas, un punto P 
viene definido por su distancia al origen de 
coordenadas, y por los dos ángulos (uno, en 
dos dimensiones) que forma el vector dis- 
tancia al origen con los ejes coordenados. 


Entrelazado. Técnica muy utilizada en tele- 
visión. Las cámaras captan la imagen y esta 
información es dividida mediante un dispo- 
sitivo especial en dos componentes llama- 
dos «campos». Estos dos campos contienen 
la información de las líneas de barrido pa- 
res o impares. Los dos campos se transmi- 
ten y reciben independientemente, de for- 
ma que el espectador podría detectarlos, 
pero quedan «entrelazados» de forma que, 
por la capacidad del ojo humano de mante- 
ner las imágenes en la retina, no se advier- 
ten. Este método se utiliza para solucionar 
en parte problemas de «parpadeo» de las 
imágenes en la pantalla. 


Fuente de Luz. Para el proceso de imágenes 
por ordenador, y para el dibujo de éstas, es 
necesario considerar la iluminación de los 
objetos y, por tanto, saber el número de 
fuentes lumínicas existente, su posición en 
el espacio y otros parámetros, como nivel 
de brillo, etc. En el dibujo de gráficos se uti- 
lizan estos valores para el sombreado de las 
distintas caras de los objetos, etc. 


Inbetweening (transformación). Técnica 


empleada en animación, que consiste en ge- 
nerar imágenes que se encuentren en eta- 
pas intermedias. En el mercado existen pro- 
gramas especiales que «inventan» estas 
imágenes intermedias, sin que el usuario 
tenga mayor preocupación que introducirle 
las dos formas, la inicial y la final, y el por- 
centaje de transformación de los cambios 
intermedios. Es frecuente, sin embargo, que 
deban realizarse pruebas para seleccionar 
la mejor de las opciones indicadas al orde- 
nador, ya que éste no es capaz (a este ni- 
vel) de distinguir qué opción ERsulta más 
real para el ojo humano. 


Joystick. Dispositivo electromecánico conec- 


tado al terminal mediante un cable, que per- 
mite el control de un cursor de cualquier 
tipo en tiempo real. Al pulsar en una deter- 
minada posición de la pantalla, el usuario 
puede comunicar esta posición al programa 
de control, en cualquier momento, para tra- 
bajar sobre ella. Para aplicaciones distintas 
de los juegos, hoy en día se utiliza el «ratón»: 
dispositivo que dispone de una bola que fa- 
cilita el movimiento y el acceso a cualquier 
punto de la pantalla. El sistema actúa de un 
modo equivalente: mediante los distintos 
contactos de la bola, ésta comunica al pro- 
grama la posición de la pantalla donde se 
encuentra el cursor, pero es un sistema mu- 
cho más rápido y cómodo. 


Lambert, ley del coseno de. Johann Lam- 


bert, metemático, físico, astrónomo y filóso- 
fo suizo, estudió, entre otras cosas, el com- 
portamiento de la luz, y expuso que la luz 
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Nivel de gris. Cantidad de luminosidad que 
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Ley de Lambert 


que refleja una superticie es proporcional al 
coseno del ángulo que forman la normal a 
dicha superficie y el vector del rayo inci- 
dente. Por tanto, la posición relativa del ob- 
servador respecto de la superficie no afec- 
ta en absoluto al brillo, ya que la superficie 
refleja la luz por igual en todas direcciones. 
En el dibujo (Ley de Lambert) pueden ver- 
se dos superficies, una de ellas girada un 
ángulo alfa. En él puede verse que la super- 
ficie girada recibe menos luz, y que si el án- 
gulo fuera de 90 grados, no recibiría luz al- 
guna. Aunque esto no es así, porque siem- 
pre recibiría algún rayo de la luz del am- 
biente (que provenga de otra dirección), la 
ley de Lambert se utiliza para la creación 
de algoritmos muy útiles para el dibujo de 
sombras. 


Luz incidente. Se refiere a la luz cuando ilu- 


mina objetos. Aunque los objetos irradian 
emisiones de infrarrojos, el ojo humano es 
incapaz de percibir estas radiaciones, por 
lo que para ver un objeto es necesario ilu- 
minarlo con suficiente luz para que pueda 
apreciarse éste por la luz que refleja. Exis- 
ten programas de ordenador que toman in- 
formación de la cantidad de luz y posición 
de una fuente luminosa, así como de la su- 
perficie del objeto y con esta información 
«colorean» dicho objeto con distintas técni- 
cas. 
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aparece en un punto (pixel) de una imagen 
monocroma cuando ésta está codificada en 
valores digitales. Normalmente el nivel cero 
se hace corresponder al negro y el nivel 
más alto al blanco. Este nivel de gris «más 
alto» puede ser 16 (cuando los niveles de 
gris se codifican con cuatro bits), 32, 64, 128 
ó 256 (para los sistemas más complejos en 
que se codifica con ocho bits). Existen, sin 
embargo, sistemas que requieren manejar 
16 y hasta 32 bits, 


Proceso de imágenes. Análisis de imáge- 


nes, para extraer de ellas información. Las 
imágenes pueden obtenerse de una cáma- 
ra de vídeo o televisión, de satélite, etc. El 
primer paso a dar para poder procesarlas 
es digitalizarlas, es decir, convertirlas en 
una matriz de valores, con los que se traba- 
ja durante el proceso. Una vez terminado 
éste, la imagen puede hacerse de nuevo 
analógica mediante el dispositivo adecua- 
do. 


Proyección isométrica. Para el dibujo de 


objetos se pueden utilizar numerosas pro- 
yecciones, entre las que cabe citar la ¡so- 
métrica, oblicua, en perspectiva, etc. Con- 
cretamente, en la proyección isométrica, las 
líneas verticales se mantienen, mientras 
que las horizontales se dibujan con un án- 
gulo de 30 grados con respecto a la horizon- 
tal. En la figura aparece un dibujo con pro- 
yección isométrica. Obsérvese que falta 
toda perspectiva (todas las líneas paralelas 
se dibujan también paralelas en el dibujo). 
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Este tipo de proyección resulta muy senci- 
lla para su utilización mediante ordenador, 


ya que es la más sencilla, requiere menos 
cálculos y, por tanto, los objetos se dibujan 
más rápidamente. 


Proyección paralela. A las imágenes en 
tres dimensiones, para poder ser mostradas 
en la pantalla, se les realiza una transforma- 
ción en sus coordenadas de forma que la 
imagen que se obtenga en la pantalla pue- 
da parecerse lo más posible a la real que 
verían nuestros ojos. Sin embargo, esta 
transformación, aplicada a las coordenadas, 
requiere resolver muchos cálculos geomé- 
tricos, como, por ejemplo, la eliminación de 
aquellas líneas que quedan tapadas por 
otras. La proyección paralela es un sistema 
para dar realismo a las imágenes. Consiste 
en distorsionar las coordenadas del objeto 
como si el espectador estuviera situado a 
una distancia infinita del objeto que se está 
dibujando. Esta proyección requiere cálcu- 
los relativamente sencillos, y, en muchos ca- 
sos, se emplea para determinar las intersec- 
ciones de unos objetos con otros. 


Rejilla de perspectiva. Son herramientas 
muy útiles para el dibujo en tres dimensio- 
nes. Consisten fundamentalmente en un di- 
bujo creado por el ordenador consistente en 
líneas paralelas en tres planos perpendicu- 
lares, dibujado en perspectiva, desde un 
cono de visión determinado. También pue- 
den aparecer en el dibujo escalas, para rea- 
lizar mediciones en cada uno de los tres 
ejes. 


Resolución. La resolución de un monitor in- 


dica el número de puntos individuales en 
que puede dividirse la imagen que apare- 
ce en la pantalla. En sentido vertical, viene 
dado por el número de líneas de ésta, y pue- 
de variar mucho de unos monitores a otros. 

Se consideran tres tipos de resolución fun- 
- damentales: baja, media y alta. La alta reso- 
lución puede llegar en ciertos dispositivos 
especiales a 1024 x 1024 puntos y más; aun- 
que los valores normales de la alta resolu- 
ción son más bajos (512 x 512). 


Test mini-max. Un problema frecuente en 
gráficos por ordenador y reconocimiento de 
formas es la comparación de grupos o con- 
juntos de coordenadas con otros conjuntos 
para averiguar información, como, por 
ejemplo, sus intersecciones, etc. Por ejem- 
plo, esta información se utiliza para saber 
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cuáles son las líneas ocultas que no deben 
aparecer en el dibujo. Un método muy uti- 
lizado para intentar acelerar el proceso en 
lo posible consiste en obtener los límites 
máximo y mínimo de cada forma, y averi- 
guar si existe alguna intersección de estas 
dos fronteras (naturalmente, comparando 
coordenadas). Si las dos fronteras máxima y 
mínima de cada objeto no tienen intersec- 
ciones, los objetos no intersecan uno con 
otro, pero en caso contrario, si alguno inter- 
seca, es probable que exista dicha intersec- 
ción, por lo que se deberá pasar a analizar 
cada par de líneas individualmente. Es, 
pues, un método para eliminar cálculos su- 
perfluos. 


Tiempo de respuesta. Tiempo transcurrido 


desde el momento de inicializar un coman- 
do hasta que el ordenador ejecuta la orden. 
Naturalmente, en un ordenador utilizado en 
multiproceso, este tiempo es difícil de me- 
dir, aunque no lo es en un ordenador mono- 
proceso, por ejemplo, en un ordenador per- 
sonal. 


Vector normal. Este vector es una herra- 


mienta matemática que se utiliza en los pro- 
cesos de gráficos por ordenador para defi- 
nir la orientación de una superficie plana. 
Estos vectores normales son muy útiles en 
algoritmos para el sombreado de las formas 
(por ejemplo, para aplicar la Ley de Lam- 
bert). Véase figura. 


